C:\test>perl -wE"$#a=9e6; $a[$_-1]=$_ for 1..9e6; say grep /$$/,`tasklist`"
perl.exe                      4880 Console                    1    292,196 K