print chop,$/for sort{$b-$a}map<>.$_,A..C