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

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