*foo = [qw (a b c)];
{
  local *foo = [qw(1 2 3)];
  print "local \@{\*foo{ARRAY}} = qw(@{*foo{ARRAY}})\n";
  print "local \@foo = qw(@foo)\n";
}
print "global \@foo = qw(@foo)\n";
__END__
local @{*foo{ARRAY}} = qw(1 2 3)
local @foo = qw(1 2 3)
global @foo = qw(a b c)

##</code><code>##

*foo = [qw (a b c)];
{
  my *foo = [qw(1 2 3)];
  print "my \@{\*foo{ARRAY}} = qw(@{*foo{ARRAY}})\n";
  print "my \@foo = qw(@foo)\n";
}
print "global \@foo = qw(@foo)\n";
__END__
my @{*foo{ARRAY}} = qw(1 2 3)
my @foo = qw(a b c)
global @foo = qw(a b c)