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