use Memchmark 'cmpthese';

# use sort '_quicksort';

cmpthese( none => sub { my @a = map { int rand 100 } 1..1000000; },
          sort0 => sub { my @a = map { int rand 100 } 1..1000000; @a = sort { $a <=> $b } @a },
          sort1 => sub { my @a = map { int rand 100 } 1..1000000; @a = sort { $a <=> $b } @a, 1 } );

__END__

test: none, memory used: 3997696 bytes
test: sort0, memory used: 7999488 bytes
test: sort1, memory used: 12390400 bytes

##</code><code>##

use sort '_quicksort';
...

__END__

test: none, memory used: 3997696 bytes
test: sort0, memory used: 3997696 bytes
test: sort1, memory used: 12390400 bytes