SYNOPSIS use Sub::Iterator qw(gen_array_iterator gen_fh_iterator); my $sub = gen_array_iterator([1, 2, 3]); $sub->(); # -> 1 $sub->(); # -> 2 $sub->(); # -> 3 $sub->(); # -> undef FUNCTIONS gen_array_iterator(\@ary) -> code gen_fh_iterator($fh) -> code