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