sub map2(&@) {
  my $f = shift;
  my @res;

  no strict 'refs';
  my $caller = caller;
  local(*{$caller."::a"}) = \my $a;
  local(*{$caller."::b"}) = \my $b;

  if (defined(wantarray)) {
    push @res, $f->($a,$b) while ($a, $b) = splice @_, 0, 2;
    return @res;
  } else {
    $f->($a,$b)            while ($a, $b) = splice @_, 0, 2;
  }
}


# ...
%h_prefixed = map2 { ($a, "p$b") } %h;
@a_hashed = map2 { +{ $a => $b } } @a;