print sort{$a=~y///c-length$b}sort<>