#!/usr/bin/perl
foo();
bar();
for (1..3) {
    my $x=0;
    sub foo { print ++$x }
    sub bar { print ++$x }
    print ++$x;
}

##</code><code>##

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