DB<140>  sub gen {
             my $href=shift;
             return sub { join " => ", each %$href }
           }

  DB<141> $iter1 =gen \%h; $iter2 =gen \%h

  DB<142> @h{a..d}=1..4
 => (1, 2, 3, 4)

  DB<143> print &$iter1,"\t" for 1..3
a => 1  d => 4  c => 3	

  DB<144> print &$iter2,"\t" for 1..3
b => 2          a => 1	

  DB<145> print &$iter1,"\t" for 1..3
d => 4  c => 3  b => 2	

  DB<146> print &$iter2,"\t" for 1..3
        a => 1  d => 4	


##</code><code>##

lanx@nc10-ubuntu:~/perl$ perl -version

This is perl, v5.10.0 built for i486-linux-gnu-thread-multi