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

##</code><code>##

my %h_prefixed = %h;
$_ = "p$_" for values %h_prefixed;