$ perl -le 'sub alias_to { $_[0]->[$_[1]] } my @x = (1,2,3); my $z=alias_to(\@x,1); print $z; $z=42; print $x[1]'
2
2