{ our $foo; sub inc { ++$foo } } print inc for 1 .. 5; our $foo; print ++$foo; #### { my $foo; sub inc { ++$foo } } print inc for 1 .. 5; my $foo; print ++$foo;