sub foo{
  my $x if 0;
  print "FOO: ", $x++, "\n";
}
sub bar{
  my $x if 0;
  print "BAR: ", $x--, "\n";
}
foo, bar for (1..10);

##</code><code>##

sub foo{
  print "FOO: ", $x++, "\n";
}
sub bar{
  print "BAR: ", $x--, "\n";
}
foo, bar for (1..10);

##</code><code>##

sub STATIC_VARIABLE{ 0 }

sub foo{
  STATIC_VARIABLE && my $x;
  print "FOO: ", $x++, "\n";
}