my $foo = {bar=>{baz=> [3,4,5,6]}}; 
local *baz= $foo->{bar}{baz}; # typeglob ALIAS, not a copy
print qq(@baz);