my %new=map { $_ => however_you_get_it_from($_) } keys %orig;