@a = 1 .. 5;

@b = \@a[ 0, 2, 4 ]; 
print "@b"; ## An array of references to aliases or copies?
SCALAR(0x18eece0) SCALAR(0x18eecf8) SCALAR(0x18eed10)

$$_ += 10 for @b;
print $$_ for @b;
11
13
15

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

##</code><code>##

@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

##</code><code>##

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

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