my $foo;
sub bar {
    print $foo;
}