my %new_hash;

@new_hash{map munge($_), keys %old_hash} = value %old_hash;