sub foo {
    my $n = 1;
    print $n;
    bar();
    print $n;
    bar();
    sub bar {
        $n++;
    }
}

foo();
foo();

#output 1211