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