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

Note: This will work even if @x is a lexical, but the alias, $z, must be global as lexicals don't have symbol table entries. If you want lexical aliases, use Lexical::Alias as BrowserUk mentioned.

-sauoq
"My two cents aren't worth a dime.";