sub hmap (&%)
{
    my $code = shift;
    my @i = @_;
    local @_;
    my @rv;
    push @rv, $code->(@_=(shift @i,shift @i)) while @i;
    @rv;
}

##</code><code>##

sub hmap (&%) {
    my $code = shift;
    my @i = @_;
    my @rv;
    push @rv, $code->(shift @i,shift @i) while @i;
    @rv;
}