$/=$";s/\PL//g,$_{+lc}++for<>;print"$_{$_} $_
"x/\D/for sort%_