sub foo {
    my $f if 0;
    print ++$f, "\n";
}
foo(); # 1
foo(); # 2