for(<>){@_=();for$j(0..9){push@_,s/$j//g}print sort{$b-$a}@_,"\n"}