my $foo = 'bar';

baz();
sub baz {
   print $foo, "\n";
   print $qux, "\n";
}

my $qux = 'bar';