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

my $iter = make_list_iterator(@list);