Select Code to Download

@a = 1 .. 5;

...

print "@a"; 
11 2 13 4 15 ## It was mutated!

@a = 1 .. 1e6;;
print $$;;
...
!tasklist /fi "pid eq 2156";;

perl.exe                    2156                         0     71,144 
+K

@a = 1 .. 1e6;;
print $$;;
...
@b = \@a[ 1 .. $#a ];;
!tasklist /fi "pid eq 4108";;
perl.exe                    4108                         0     91,392 
+K