Re: map-like hash iterator

Or maybe even

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

Makeshifts last the longest.