#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];

cmpthese -10, {
    "\$a<=>\$b"     => q[my @a = sort{                $b <=> $a   } 1 .. 1e6;],
    "\$::a<=>\$::b" => q[my @a = sort{              $::b <=> $::a } 1 .. 1e6;],
    "our(\$a,\$b)"  => q[my @a = sort{ our( $a, $b ); $b <=> $a   } 1 .. 1e6;],
};

__END__
C:\test>junk2.pl
            s/iter $::a<=>$::b     $a<=>$b  our($a,$b)
$::a<=>$::b   2.09          --         -0%        -77%
$a<=>$b       2.08          0%          --        -77%
our($a,$b)   0.469        344%        343%          --


##</code><code>##

              Rate  our($a,$b)     $a<=>$b $::a<=>$::b
our($a,$b)  1.75/s          --        -46%        -46%
$a<=>$b     3.24/s         85%          --         -0%
$::a<=>$::b 3.24/s         86%          0%          --