for (values %$p) {
            @newhash{keys %$_} = values %$_;
        }
        $_[0] = \%newhash;