As you described: every time I have something similar to this in Perl 5, and that's quite often:

{
my $var;
BEGIN { $var= 'init_val'; }

sub foo
  { ...
    ... $var ...
    ...
  }
}
[download]