Select Code to Download

  @sorted = sort { $a <=> $b } @list;

#!/usr/bin/perl -w
use strict;
...
    reversed_numerical => sub { @sorted = sort { $b <=> $a } @unsorted
+ },
    messed_up=> sub { @sorted = sort { my $cmp = $a <=> $b; $cmp } @un
+sorted },
});

Benchmark: running messed_up, native, numerical, reversed_numerical, r
+eversed_string, string, each for at least 3 CPU seconds...
 messed_up:  3 wallclock secs ( 3.29 usr +  0.00 sys =  3.29 CPU) @ 75
+.99/s (n=250)
...
reversed_numerical:  2 wallclock secs ( 3.13 usr +  0.00 sys =  3.13 C
+PU) @ 379.87/s (n=1189)
reversed_string:  4 wallclock secs ( 3.62 usr +  0.00 sys =  3.62 CPU)
+ @ 239.78/s (n=868)
    string:  3 wallclock secs ( 3.24 usr +  0.00 sys =  3.24 CPU) @ 22
+6.54/s (n=734)