Select Code to Download

$#a = 1e6;;

...

say grep /$$/, `tasklist`;;
perl.exe                      6740 Console                    1     41
+,312 K

#a = 1e6;;

...

say grep /$$/, `tasklist`;;
perl.exe                      4816 Console                    1     88
+,688 K

$#a = 1e6;;

...

say grep /$$/, `tasklist`;;
perl.exe                      8152 Console                    1     73
+,712 K