Select Code to Download

@list = (\$a, \@b, \%c);
@list = \($a, @b, %c);      # same thing!

$list = [ @array[2,0] ];

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

#!perl/bin/perl

...

$ref[0][0] = "changed";
print "$ref[0][0] @array";

my @array = ("my","list","here");
my @ref = ([\@array[2,0]],[\@array[1]]);
...
print "${$ref[0][0]} @array";
__END__
changed my list changed

my @ref = (\@array[2,0],\@array[1]);
my @ref = \(@array[2,0],@array[1]);
my @ref = (\$array[2],\$array[0],\$array[1]);
my @ref = \($array[2],$array[0],$array[1]);
my @ref = \(@array[2,0,1]);