#! perl -slw
use strict;
use sort '_quicksort';

sub mem {
    my( $usage ) =  `tasklist /NH /FI \"pid eq $$\" ` =~ m[ (\S+) \s+ K \s* $ ]x;
    return $usage;
}

$| = 1;

my @a; $#a = 20e6;
$a[ $_ ] = int rand 32767 for 0 .. 20e6;

printf "Mem after building array: %s kb\n", mem;

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

printf "Mem after sorting array: %s kb\n", mem;