$ perl -E 'package Foo; local our $bar; package main; say for keys %Foo::'
bar

##</code><code>##

$ perl -E 'our $bar = "foo"; say "1: $bar"; package Foo; { local our $bar = "quux"; say "2: $bar"; }; say "3: $bar"; package main; say "4: $bar"; say "Foo::$_" for keys %Foo::'
1: foo
2: quux
3: foo
4: foo
Foo::bar