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