Select Code to Download

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

while( my($k,$v) = each %bias and not defined $rand){
    $rand = $k if rand($biasbase{$k}) < $v;
}