my @a= (1, 2, 3, 4);

my $p= RefTo $a[2];

$$p= 9;

print join(",", @a) # should print 1,2,9,4