Select Code to Download

for my $pair (
    sub {
...
    my ($k,$v) = @$pair;
    ...
}

while (my ($k,$v) = each %h) {
    ...
}

for my $k (keys %h) {
    my $v = $h{$k};
    ...
}