Select Code to Download

sub map2(&@) {
  my $f = shift;
  my @res;
...
# ...
%h_prefixed = map2 { ($a, "p$b") } %h;
@a_hashed = map2 { +{ $a => $b } } @a;