$\ = "\n";
my @array = ("my","list","here");
$_ = @array[0,1,2];
print;           # prints "here" - last element of slice
$_ = ("my","list","here");
print;           # also prints "here"