my %newHash = ();
@newHash{ keys %oldHash } = map { &quote($_) } values %oldHash;