Select Code to Download

sub some_key {
    my $hash_ref = shift;
...
    keys %$hash_ref; # reset iterator
    $key;
}

my %some_hash = (
    key1 => some_key($bar),
    key2 => some_key($baz),
);