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);
####
sub foo{
print "FOO: ", $x++, "\n";
}
sub bar{
print "BAR: ", $x--, "\n";
}
foo, bar for (1..10);
####
sub STATIC_VARIABLE{ 0 }
sub foo{
STATIC_VARIABLE && my $x;
print "FOO: ", $x++, "\n";
}