C:\test>perl -E"say `tasklist|find \"$$\"`; $#a = 1e6; say `tasklist|find \"$$\"`; undef @a; say `tasklist|find \"$$\"`"
perl.exe                    247600 Console                    1      4,676 K
perl.exe                    247600 Console                    1     12,552 K
perl.exe                    247600 Console                    1      4,720 K