my %h_prefixed; @h_prefixed{keys %h} = map "p$_", values %h;