foo();

sub foo {
    state @verbose = 1..10;
    say shift @$verbose;
}

##</code><code>##

foo(); 
foo(); 
foo();

sub foo {
    state $verbose = [1..10];
    say shift @$verbose;
}
__END__
1
2
3