my @arr = (1,2,3);
my $ref = \@arr; # or just [1,2,3]
print $ref->[0]; # 1
$arr[0] = 42;
print $ref->[0]; # 42