...
my $var
...
sub initialize
{ ...
  $var = 'this string';
  ...
}

sub mysub
{
    # print STDERR "var = $var";
    print STDERR eval("...$var...");
}

BEGIN { initialize() }