my $foo = undef;

##</code><code>##

my ($foo, $bar) = split " ", int rand 42;

##</code><code>##

sub foo {
    baz();
    my $foo = "bar";
    sub baz {
        print $foo;
    }
}