Select Code to Download

my @sorted = sort @unsorted;
for (my $i=$#sorted; $i>=0; $i--) {
   print $sorted[$i], "\n";
}

use strict;
...
   b_cmp_a  => $b_cmp_a,
   reversed => $reversed,
});

>perl 589197.pl 1000 -3
          Rate neg_step  b_cmp_a reversed    neg_i
...
neg_step 22.7/s       1%       --      -1%      -1%
neg_i    22.8/s       2%       1%       --      -1%
reversed 23.0/s       2%       1%       1%       --