my $total = 0;
foreach my $key (keys %hash) {
    $total += $hash->{$key};
}

my $r = int(rand($total));

my $sum = 0;
foreach my $key (keys %$hash) {
    $sum += $hash->{$key};
    if ($r < $sum) 
        return $key;
}