sub bar {
   print our $var, "\n";  # Prints 2
}

sub foo {
   local our $var = 2;
   bar();
}

our $var = 1;
foo();