sub hashit (&\%) { my ($c, $h) = @_; local ($a, $b); map { ($a, $b) = each %$h; $c->() } (undef) x keys %$h; }