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