{
    our $foo;
    sub inc { ++$foo }
}

print inc for 1 .. 5;
our $foo;
print ++$foo;