C:\test>perl -E"say `tasklist|find \"$$\"`; $#a = 1e6; $a[$_]=$_ for 0..1e6-1; say `tasklist|find \"$$\"`; undef @a; say `tasklist|find \"$$\"`" perl.exe 293992 Console 1 4,688 K perl.exe 293992 Console 1 36,872 K perl.exe 293992 Console 1 29,044 K