$/=' ';y/a-zA-Z//cd,$x{lc$_}++for<>;$_&&print"$x{$_} $_
"for sort keys%x;