$#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