while( my @els = elements @array,3){
   .. do something
}

# instead of 

my $iter = make_iter(@array);
while (my @els  = @{ $iter->() } ){
   .. do something
}