##
my @a = ();
$#a = 1e6;
##
##
my @a = ();
$#a = 1e6;
mem(1);
$a[ $_ ] = $_ for 1 .. 1e6;
mem(2);
undef @a;
mem(3);
my @a = ();
$#a = 1e6;
$a[ $_ ] = $_ for 1 .. 1e6;
mem(4);
sub mem {
my $mem = `tasklist /nh /fi "PID eq $$"`;
$mem =~ tr[ \t\n][ ]s;
print "$mem : $_[0]\n";
};