use warnings;
use strict;

my %guesses;
my $program_guess = int(rand 10)+1;
while (1) 
{
    print "Please give a number between 1 and 10\n";
    my $user_guess = <STDIN>;
       chomp $user_guess;
    if (exists $guesses{$user_guess}) {
        print "The number you guessed is a repeat, please try again!\n
+";
        next;    
    }
    else {
        $guesses{$user_guess}++;
    }

    if ($user_guess > $program_guess)
    {
        print "The number you guessed is higher, please try again!\n";
        next;
    }

    elsif ($user_guess < $program_guess)
    {
        print "The number you guessed is lower, please try again!\n";
        next;
    }

    print "You got the correct number!\n";
    last;
}
[download]

Please see also Help with Guessing Game and Number Guessing Game for previous work on your course assignment.

So you want the record of $program_guesses carried over from game to game? You appear to confirm that in your Re^2: Adding one last conditional in a random-number guessing gamein response to hdb's Re: Adding one last conditional in a random-number guessing game.

And do you want the guess record carried over from execution to execution of the game?

That would entail keeping your record of the guesses -- hash, array or list -- in a (tied-)file
      ...and would mean the game could never be "played" more than 10 times!

Update: that is "never" without making the record inaccessible to the script (in effect, deleting the record).

Are you sure you understood your homework assignment correctly? Could it be that the user should not be allowed to guess the same number twice in the course of a single game?

You want to play repeatedly and the program will not guess the same number again?

exactly that is what I want to do... But can I do it without creating a hash?

But can I do it without creating a hash?

I can do it :D But I would just use a hash anyway :)

Another way is to continually adjust the range of acceptable numbers.

As you see, it's often good practice to separate constants at the top of your program so that things can be adjusted easily at a later date.

use strict;
use warnings;

my $min = 1;
my $max = 10;

my $target = $min + int(rand ($max - $min + 1));

print "Please give a number between $min and $max\n";

while () {
    my $guess = <STDIN>;
    chomp $guess;

    if ($guess < $min || $guess > $max) {
        print "Outside of range, please give a number between $min and
+ $max\n";

    } elsif ($guess > $target) {
        $max = $guess - 1;
        print "Too high, please give a number between $min and $max\n"
+;

    } elsif ($guess < $target) {
        $min = $guess + 1;
        print "Too low, please give a number between $min and $max\n";

    } else {
        print "You got the correct number!\n";
        last;
    }
}
[download]