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