my($threshold, $value);
while(my($k, $v) = each(%hash)) {
    if(my $weight = weight($k)) {  # function call
        my $rand = -log(1 - rand)/$weight;
        if(not defined $threshold or $rand < $threshold) {
            $threshold = $rand;
            $value = $v;
        }
    }
}