C:\test>p1
perl> sub getIter{ my ($s,$e,$ref)=@_; $e=$#$ref if $e==-1; return sub { $s<=$e ? $ref->[$s++] : (); }}
perl> @a = 1 .. 1000000
perl> $iter = getIter 500000, 500005, \@a
perl> print while $_ = $iter->()
500001500002500003500004500005500006
perl>