my %Copy;
@Copy{ map { tr/ /_/; $_ } keys %Orig } = values %Orig;