#!/usr/bin/perl

print "#-----------------------------------------#\n";
print "guess 5 numbers and then quit\n";
print "store the numbers in an array.\n";
print "stop guessing when the \$\#array = 4\n";
print "#-----------------------------------------#\n";
@wrong_guesses=();
print "$#wrong_guesses\n";
while ( "$#wrong_guesses" < 4 ){
  #
  #  Make a random number guess.
  #
  $guess=int(rand(10));
  print "\$\#wrong_guesses = ",$#wrong_guesses,"\tRandom number = $guess\n";
  #
  # Did we use this guess before?
  #
  foreach $wrong_guess (@wrong_guesses){
    print "checking if guess is unique\n";
    if ( "$wrong_guess" =~ "$guess" ) {
      print "\tThat was a repeat guess\n";
    } else {
      push (@wrong_guess, $guess);
      print "I am guessing $guess\n";
    }
  }
}

foreach $string ( @my_array){
	if ( $my_string =~ $string ){
		print "We ahve a match\n";
		return;
	} else {
		print "No Match\n";
	}
}