sub foo {
    my $f = 40 if @_;
    print ++$f, "\n";
}
foo();   # 1
foo();   # 2
foo(1);  # 41
foo();   # 1
foo();   # 2