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