$\="\n";
my ($x,$y,$z)=(1,2,3);
my $r=sub{ \@_ }->($x,$y,$z,$z,$y,$x);
print $r->[0]; # 1
$r->[-1]=10;
print $r->[0]; # 10