use strict;
use Benchmark;


for (my $size = 10; $size <= 100_000; $size *= 10) {
    @main::array = map {int rand $size} 1 .. $size;

    timethese -3 => {
        "[$size] <=>"  =>  'my @array2 = sort {$a <=> $b} @main::array',
        "[$size] cmp"  =>  'my @array2 = sort {$a cmp $b} @main::array',
    }
}