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

sub foo
  { ...
    ... $var ...
    ...
  }
}