#!/usr/bin/perl
use strict;
use warnings;

my @incorrect;
my @correct = qw / 1 2 3 4 5 6 7 8 9 10 /;
my $guess = 1;
my $i = 0;
if ($guess eq $correct[$i]) { # if guess is correct, reply   
    print "You Rock!\n";
    $i++;
} 
else { 
print "You Suck!\n"; # if incorrect, reply and save answer to be calculated 
@incorrect = (@incorrect, $guess);
}