Select Code to Download

sub gen_each_iter(\%) {
   my ($hash) = @_;
...
while (my ($key, $val) = $each->()) {
   ...
}

my @keys = keys(%foo);

...
while (my ($key, $val) = $each->()) {
   ...
}