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