my $sum = 0;
$sum += $_ foreach (values %bias);
my $target = rand($sum);
$sum = 0;
while (my ($k, $v) = each %bias) {
    if ($target <= ($sum += $v)) {
        $rand = $k;
        last;
    }
}