our $var = 'a';
{ my $var = 'x'; print "$var\n"; }  # x
print "$var\n";                     # a

##</code><code>##

my $var = 'a';
{ my $var = 'x'; print "$var\n"; }  # x
print "$var\n";                     # a

##</code><code>##

our $var = 'a';
sub f { print "$var\n"; }
{ local $var = 'x'; f(); }  # x
print "$var\n";             # a

##</code><code>##

our $var = 'a';
sub f { print "$var\n"; }
{ local *var; *var = 'x'; f(); }  # x
print "$var\n";                   # a

##</code><code>##

my $var = 'a';
sub f { print "$var\n"; }
{ ?????; $var = 'x'; f(); }  # x
print "$var\n";              # a