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