@:
my @array = (1, 2, 3, 4);
print join " ", @array[1..2];
my $aref = [1, 2, 3, 4];
print join " ", @{$aref}[1..3];
(!= ) . :
my @array = (1, 2, 3, 4);
for (@array[1..2]) {
s/\d/_/;
}
print "@array";
, .
( ), :
my @array = (1, 2, 3, 4);
my @slice = @array[1..2];
my $slice = [ @array[1..2] ];
\@array[1..2] , .