use automine
# our $var;

... 

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