{ 
    $x = 1;
    {
        $x = 2;
    }
}

##</code><code>##

{ 
    my $x = 1;
    {
        my $x = 2;
    }
}

##</code><code>##

{ 
    $x = 1;
    {
        my $x = 2;
    }
}

##</code><code>##

{ 
    my $x = 1;
    {
        my $x = 2;
    }
}

##</code><code>##

{ 
    my $x = 1;
    {
        $x = 2;
    }
}

##</code><code>##

{ 
    my $x = 1;
    {
        $x = 2;
    }
}

##</code><code>##

{ 
    my $x = 1;
    {
        my $x = 2;
    }
}

##</code><code>##

{ 
    my $x = 1;
    {
        my $x = 2;
    }
}

##</code><code>##

sub foo { 
    if (1) {
        $x = 2;
    }
    print $x;
}

##</code><code>##

sub foo { 
    if (1) {
        my $x = 2;
    }
    print $x;     # undeclared
}

##</code><code>##

sub add { 
    $x = 0;
    for (1..9) {
        $x = $x + $_;
    }
    print $x;
}

##</code><code>##

sub add { 
    my $x = 0;
    for (1..9) {
        my $x = $x + $_;
    }
    print $x;         # prints 0
}

##</code><code>##

use automine
# our $var;

... 

sub foo {
    $var = shift; # not 'my $var' if explicit 'our $var' exists 
    ...
}