my  @foo = ("initial");
use strict;
my @bar;
*bar = \@foo;
$bar[0] = "final";
print @foo;