$#a = 1e6;;

say grep /$$/, `tasklist`;;
perl.exe                      6740 Console                    1     17,120 K

$n=1e6-1; $t=time; ++$a[ $_ ] for 0..$n; print time()-$t;;
0.242353916168213

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

##</code><code>##

#a = 1e6;;

say grep /$$/, `tasklist`;;
perl.exe                      4816 Console                    1     17,128 K

$n=1e6-1; $t=time; map ++$a[ $_ ], 0..$n; print time()-$t;;
0.32020902633667

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

##</code><code>##

$#a = 1e6;;

say grep /$$/, `tasklist`;;
perl.exe                      8152 Console                    1     17,152 K

$t=time; ++$_ for @a; print time()-$t;;
0.709916114807129

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