{
   local *bar       # Make sure we don't clobber an existing var.
   *bar = \@foo;    # Create an alias
   our @bar;        # So we don't have to say @Package::bar.
   print($bar[0]);  # Same as print($foo[0]);
}                   # Restores *bar (and therefore $bar, @bar, etc)

##</code><code>##

local *bar = \@foo;