map{$winners_hash{$_}++}@winners;
@new_winners = grep{!$winners_hash{$_}}@correct;
$the_winner = $new_winners[int(rand($#new_winners+1))];