Select Code to Download

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

my @array = (1,2,3);
my $arrayref = \@array;
print @$arrayref;