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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

#!perl/bin/perl

use strict;

my @array = ("my","list","here");
my @ref = ([@array[2,0]],[@array[1]]);

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

##</code><code>##

my @array = ("my","list","here");
my @ref = ([\@array[2,0]],[\@array[1]]);

${$ref[0][0]} = "changed";
print "${$ref[0][0]} @array";
__END__
changed my list changed

##</code><code>##

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]);