Select Code to Download

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

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

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

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

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