#!perl/bin/perl

use strict;

my @array = ("my","list","here");

@_ = \@array[2,0];

print @_;

##</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>##

#!perl/bin/perl

use strict;

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

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