my $number;
    do {
        $number = draw_regular();
    } while ( grep { $_ == $number } @picked );
    push @picked, $number;