foo();
bar();
{
    my $x;
    sub foo { print ++$x; }
    sub bar { print ++$x; }
    print ++$x;
    {
        my $x;
        for (2..3) {
            print ++$x;
            undef $x;
        }
    }
}