sub backwards { $b cmp $a }
sort backwards @a;