sub getRand {
    my $temp;
    while (1) {
        $temp = int(1111*rand()/11); 
        unless ($temp == 0) {
            return $temp
        }
    }
};

sub getDrawBall {
    my $type = shift;
    while (1) {
        my $temp = pop @callseq;
        unshift( @callseq, $temp );
        if ($temp =~ /$type/) {
            return $temp;
            print "DEBUG getDrawBall: $temp\n";
        }
    }
}

sub getNonDrawBall {
    my $type = shift;
    while (1){
        my $temp = pop @noncallseq;
        unshift( @noncallseq, $temp ); #print "sNDB\:\: TEMP $temp TYPE $type\n";
        if ($temp =~ /$type/) {
            return $temp;
            print "DEBUG getnonDrawBall: $temp\n";
        }
    }
}