package main;
my $var=6;
sub foo {
        our $var;
        $var=5;
}

print $var;
foo();
print $main::var;
print $var;