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