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