my %foo = (a => 1, b => 2);

for (1..10) {
    each %foo or print "re-init $_\n";
}
__END__
re-init 3
re-init 6
re-init 9