sub hmap (&%) {
    my $code = shift;
    my @i = @_;
    local @_;
    my @rv;
    push @rv, $code->(@_=(shift @i,shift @i)) while @i;
    @rv;
}
%h = (foo => 1, bar => 2, baz => 3);

%new =  hmap { $_[0]."l",++$_[1] } %h;
print "hmap result:";
print "$_ => $new{$_}" for keys %new;
__END__
hmap result:
bazl => 4
barl => 3
fool => 2