my $var1;
$_ = '';
FOO: {
    my $var2;
    BAR: {
        my $var3;
        local $_ = 'bar set it';
        &foo();
    }
    GORCH: {
        my $var4;
    }
}

sub foo {
    my $var5;
    print "$_\n";
}