Select Code to Download

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

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

package wombat;

...
             # I could not control the scope of the typeglob