C:\test>p1 [0] Perl> sub mem { my $mem = `tasklist /nh /fi "PID eq $$"`; $mem =~ tr[ \t\n][ ]s; return "$mem : $_[0]"; };; print mem 1;; perl.exe 291940 Console 1 11,292 K : 1 $a[ $_ ] = $_ for 1 .. 1e6;; print mem 2;; perl.exe 291940 Console 1 43,680 K : 2 undef @a;; print mem 3;; perl.exe 291940 Console 1 35,464 K : 3 $a[ $_ ] = $_ for 1 .. 1e6;; print mem 4;; perl.exe 291940 Console 1 44,848 K : 4