#!/usr/bin/perl

use strict;
use warnings;

use Benchmark 'cmpthese';
use List::Util 'shuffle';

our @data = shuffle 1 .. 10000;

cmpthese -1, {
    '<=>'  => q[@s1=sort{$b<=>$a} @data],
    ' - '  => q[@s2=sort{$b - $a} @data],
};

__END__
      Rate   -   <=>
 -  36.5/s   -- -30%
<=> 52.3/s  43%   --