my $foo++;  say $foo;
my $foo++;  say $foo;
our $bar++; say $bar;
our $bar++; say $bar;
__END__
1
1
1
2