sub foo {
   my $x if 0;
   print ++$x, "\n";
}

foo() for 1..3;

##</code><code>##

1
2
3