my @newkeys = map {to_new($_)} keys %$href;
@{$href}{@newkeys} = delete @{$href}{keys %$href};