my $sum = 0; $biasbase{$_} = ($sum += $bias{$_}) foreach (reverse keys %bias);