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