>perl -wMstrict -le
"my %hash = qw(
   one uno  two dos  three tres  four quatro  five cinco
   );
 sub my_each (\%) {
   my $hr = shift;
   my @k  = keys %$hr;
   ;;
   return sub {
     return unless @k;
     my $k = shift @k;
     return $k, $hr->{$k};
     }
   }
 ;;
 my $e1 = my_each %hash;
 my $e2 = my_each %hash;
 ;;
 print qq{e1: @{[ $e1->() ]}; @{[ $e1->() ]}.};
 print qq{e2: @{[ $e2->() ]} \n};
 ;;
 print qq{e1: @{[ $e1->() ]}; @{[ $e1->() ]}.};
 print qq{e2: @{[ $e2->() ]} \n};
 ;;
 print qq{e1: @{[ $e1->() ]}; @{[ $e1->() ]}.};
 print qq{e2: @{[ $e2->() ]} \n};
 ;;
 print qq{e1: @{[ $e1->() ]}; @{[ $e1->() ]}.};
 print qq{e2: @{[ $e2->() ]} \n};
"
e1: three tres; five cinco.
e2: three tres

e1: one uno; two dos.
e2: five cinco

e1: four quatro; .
e2: one uno

e1: ; .
e2: two dos