⭐ in reply to How do I modify the KEYS in a hash (copy)

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

[download]

In Section Seekers of Perl Wisdom