our $x;
CODE INVOLVING OUTER $x
{
    local $x;
    CODE INVOLVING INNER $x
}

##</code><code>##

my $x;
CODE INVOLVING OUTER $x
{
    my $x;
    CODE INVOLVING INNER $x
}

##</code><code>##

our $x; my $y;
sub twiddle { $x = $y = 'twiddled' }
{
    local $x = 'local?';
    my $y = 'local!';
    twiddle;
    say $x, ', ', $y;
}