[11:30:52.92] C:\test>perl -E"

@a=1..9e6; 

say for grep /$$/, `tasklist`"
perl.exe                      5632 Console                    1    937,368 K


[11:30:56.08] C:\test>

##</code><code>##

[11:31:01.54] C:\test>perl -E"

$#a=9e6; $a[$_-1]=$_ for 1..9e6; 

say for grep /$$/, `tasklist`"
perl.exe                      3396 Console                    1    292,188 K

[11:31:04.24] C:\test>

##</code><code>##

[11:47:33.84] C:\test>perl -E"

$a=chr(0); $a x=9e6*4;substr($a,4*($_-1),4,pack'N*',$_) for 1..9e6; 

say for grep /$$/, `tasklist`"
perl.exe                      8028 Console                    1     40,308 K


[11:47:37.79] C:\test>