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