s/\d/$$_[$&]++/ger,print sort{$b-$a}@$_,$/for<>