@a = 1 .. 1e6;;
print $$;;
2156
!tasklist /fi "pid eq 2156";;
perl.exe                    2156                         0     63,320 K

sub refSlice{ \@_ };;
$b = refSlice @a[ 1 .. $#a ];;
!tasklist /fi "pid eq 2156";;

perl.exe                    2156                         0     71,144 K