my %orig= # ...
my %new;
$new{$_}=however_you_get_it_from($_) for keys %orig;

##</code><code>##

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