$ 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