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