@a = sort { my ($b, $c) = ($a, $b); $b cmp $c } @a