use strict;
use warnings;

$main::var = 1;
{
    $main::var = 2;
    print $main::var, "\n";    # prints 2
}
print $main::var, "\n";        # also prints 2

##</code><code>##

use strict;
use warnings;

$main::var = 1;
{
    our $var = 2;
    print $var, "\n";    # prints 2
}
print $main::var, "\n";        # also prints 2

##</code><code>##

use strict;
use warnings;

$main::var = 1;
{
    our $var = 2;
    print $var, "\n";    # prints 2
}
print $var, "\n";        # also prints 2

##</code><code>##

use strict;
use warnings;

our $var = 1;
{
    $var = 2;
    print $var, "\n";    # prints 2
}
print $var, "\n";        # also prints 2