use strict;
use warnings; 

{   # Outer block

    my $keeps_value = 0;

    sub mysub {
        print "$keeps_value\n";
        $keeps_value++
    }

}   # End of outer block

mysub();
mysub();
mysub();

##</code><code>##

0
1
2