@ary = sort { $b cmp $a } @ary;