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