sub some_key { my $hash_ref = shift; %$hash_ref or return; my ($key, undef) = each %$hash_ref; keys %$hash_ref; # reset iterator $key; } #### my %some_hash = ( key1 => some_key($bar), key2 => some_key($baz), );