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