#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