say_foo();
my $foo;
BEGIN { $foo = 'foo' }
say_foo();

sub say_foo { say '$foo = ' . ($foo // '(undef)') }

__END__
$foo = foo
$foo = foo