{
    my $x;
    sub foo {
        return ++$x;
    }
}

for (1..7) { print foo() }

##</code><code>##

sub foo {
    my $x if undef;
  return ++$x;
}
for (1..7) { print foo() }