my @sorted = sort { $b cmp $a } @unsorted;