sub checkMem{ `tasklist /nh /fi "pid eq $_[0]"`; };; print checkMem( $$ );; perl.exe 3040 Console 1 9,544 K $#a = 1e6;; print checkMem( $$ );; perl.exe 3040 Console 1 17,428 K map{ $_ } 0 .. $#a;; print checkMem( $$ );; perl.exe 1224 Console 1 73,272 K ### 56MB to build the list of 1e6 indices ###