my %h_prefixed = map2 { ($_[0], "p".$_[1]) } %h;