C:\test>perl -E"scalar( ()=1..9e6 ); say grep /$$/,`tasklist`"
perl.exe                      2548 Console                    1    650,108 K


##</code><code>##

C:\test>perl -E"@a=1..9e6; say grep /$$/,`tasklist`"
perl.exe                      2596 Console                    1    937,388 K


##</code><code>##

C:\test>perl -E"1 for 1..9e6; say grep /$$/,`tasklist`"
perl.exe                      4112 Console                    1      4,776 K


##</code><code>##

C:\test>perl -E"$a[$_-1]=$_ for 1..9e6; say grep /$$/,`tasklist`"
perl.exe                      2800 Console                    1    402,312 K


##</code><code>##

C:\test>perl -wE"$#a=9e6; $a[$_-1]=$_ for 1..9e6; say grep /$$/,`tasklist`"
perl.exe                      4880 Console                    1    292,196 K