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