Select Code to Download

while( my $k = each %hash ) { ... }
foreach my $k ( keys %hash ) { ... }

while( my ( $k, $v ) = each %hash ) {

foreach my $k ( keys %hash ) {
    my $v = $hash{ $k };

sub each_iter(%) {
    my $hash = shift;
...

my $iter = each_iter %some_hash;
while( my ( $k, $v ) = $iter->() ) {