Select Code to Download

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

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