sub list_iter {
   my @list = @_;
   return sub {
      return @list ? shift(@list) : ();
   };
}

my $iter = list_iter('a', 1, '', 0, undef, -1);
while( my ($next) = $iter->() ) {
   print( $next // '[undef]', "\n" );
}