#!perl -l
#

sub hmap (&%) {
    my $code = shift;
    local $_;
    my @rv;
    push @rv, shift, $code->($_=shift) while @_;
    @rv;
}
sub hgrep (&%) {
    my $code = shift;
    local $_;
    my @rv;
    push (@rv, ($code->($_=$_[1]) ? (shift,$_):())),shift while @_;
    @rv;
}   

%h = (foo => 1, bar => 2, baz => 3);

%new =  hmap { ++$_ } %h;
print "hmap result:";
print "$_ => $new{$_}" for keys %new;

%new = hgrep { /2/ } %h;
print "hgrep result:";
print "found $_ => $new{$_}" for keys %new;
__END__
hmap result:
bar => 3
baz => 4
foo => 2
hgrep result:
bar => 2