my %hash = ( ... );
my %new_hash = map {  $_ => ($hash{$_} * 2) } keys %hash;