use Benchmark qw(cmpthese);

my @numbers;

for (1..100) {
    my $random = int( rand(9000)) + 5;
    push @numbers, $random;
}

cmpthese(-5, {
          "Schwartz-1" => sub {
          my @sorted = map { $_->[0] }
              sort { $b->[1] <=> $a->[1] }
              map { my $num = $_; $num =~ /\d+/; [ $_, $num ]; } @numbers },
          "Schwartz-0" => sub {
          my @sorted = map { $_->[1] }
              sort { $b->[0] <=> $a->[0] }
              map { my $num = $_; $num =~ /\d+/; [ $num, $_ ]; } @numbers },
         });

Benchmark: running Schwartz-0, Schwartz-1 for at least 5 CPU seconds...
Schwartz-0:  5 wallclock secs ( 5.24 usr +  0.00 sys =  5.24 CPU) @ 719.47/s (n=3770)
Schwartz-1:  6 wallclock secs ( 5.26 usr +  0.00 sys =  5.26 CPU) @ 716.73/s (n=3770)
            Rate Schwartz-1 Schwartz-0
Schwartz-1 717/s         --        -0%
Schwartz-0 719/s         0%         --


Benchmark: running Schwartz-0, Schwartz-1 for at least 5 CPU seconds...
Schwartz-0:  5 wallclock secs ( 5.30 usr +  0.00 sys =  5.30 CPU) @ 711.32/s (n=3770)
Schwartz-1:  5 wallclock secs ( 5.31 usr +  0.00 sys =  5.31 CPU) @ 709.04/s (n=3765)
            Rate Schwartz-1 Schwartz-0
Schwartz-1 709/s         --        -0%
Schwartz-0 711/s         0%         --


Benchmark: running Schwartz-0, Schwartz-1 for at least 5 CPU seconds...
Schwartz-0:  6 wallclock secs ( 5.28 usr +  0.01 sys =  5.29 CPU) @ 711.72/s (n=3765)
Schwartz-1:  5 wallclock secs ( 5.32 usr +  0.00 sys =  5.32 CPU) @ 707.71/s (n=3765)
            Rate Schwartz-1 Schwartz-0
Schwartz-1 708/s         --        -1%
Schwartz-0 712/s         1%         --


Benchmark: running Schwartz-0, Schwartz-1 for at least 5 CPU seconds...
Schwartz-0:  5 wallclock secs ( 5.24 usr +  0.00 sys =  5.24 CPU) @ 691.98/s (n=3626)
Schwartz-1:  5 wallclock secs ( 5.24 usr +  0.00 sys =  5.24 CPU) @ 691.98/s (n=3626)
            Rate Schwartz-0 Schwartz-1
Schwartz-0 692/s         --         0%
Schwartz-1 692/s         0%         --


Benchmark: running Schwartz-0, Schwartz-1 for at least 5 CPU seconds...
Schwartz-0:  5 wallclock secs ( 5.27 usr +  0.00 sys =  5.27 CPU) @ 715.37/s (n=3770)
Schwartz-1:  5 wallclock secs ( 5.28 usr +  0.00 sys =  5.28 CPU) @ 714.02/s (n=3770)
            Rate Schwartz-1 Schwartz-0
Schwartz-1 714/s         --        -0%
Schwartz-0 715/s         0%         --


Benchmark: running Schwartz-0, Schwartz-1 for at least 5 CPU seconds...
Schwartz-0:  5 wallclock secs ( 5.28 usr +  0.00 sys =  5.28 CPU) @ 714.02/s (n=3770)
Schwartz-1:  6 wallclock secs ( 5.28 usr +  0.01 sys =  5.29 CPU) @ 711.72/s (n=3765)
            Rate Schwartz-1 Schwartz-0
Schwartz-1 712/s         --        -0%
Schwartz-0 714/s         0%         --