$hash->each(sub {
              my ($k, $v) = @_;
              ...
          });