sub test {
   my ($reset) = @_;
   my $x if $reset;
   print ++$x, "\n";
}

test(0);  # 1
test(0);  # 2
test(1);  # 3
test(0);  # 1
test(0);  # 2