<>;<>=~$",map$h{$_}+=$',glob<>while<>;print"$_ $h{$_} "for(sort{$h{$b}-$h{$a}}sort keys%h)[0..9]