foo();

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