my $array = [1,2,3];
my $alias = $array;
$alias->[2] = 4;
print $array->[2]; # Will produce 4.