$ perl -Mstrict -wle 'our(@x,$z); $x[3] = "foo"; *z=\$x[3]; print $z; $z="bar"; print $x[3]'
foo
bar