I haven't been following along in the CB so this may not be apropos, but maybe something like:

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @answers = ('Bad', 'Good', 'Not good enough');
 ;;
 my %known =  map { canonical($_) => 1 } @answers;
 ;;
 UI: {
   chomp(my $user_answer = <STDIN>);
   last UI if canonical($user_answer) eq canonical('q');
   ;;
   if ($known{canonical($user_answer)}) {
     print qq{'$user_answer' known};
     }
   else {
     print qq{'$user_answer' is UNKNOWN};
     $known{ canonical($user_answer) } = 1;
     }
   ;;
   redo UI;
   }
 ;;
 dd \%known;
 ;;
 sub canonical { return lc $_[0]; }
"
foo
'foo' is UNKNOWN
foo
'foo' known
Junk
'Junk' is UNKNOWN
junk
'junk' known
total crap
'total crap' is UNKNOWN
Total Crap
'Total Crap' known
q
{
  "bad" => 1,
  "foo" => 1,
  "good" => 1,
  "junk" => 1,
  "not good enough" => 1,
  "total crap" => 1,
}
[download]

As discussed in the CB, you'll need to store the contents outside of RAM, such as a file. The following code will bootstrap the file if necessary and query the user for feelings and how they feel. It uses FreezeThaw to store persistent data.

#!/usr/bin/env perl 
use strict;
use warnings;
use File::Slurp;
use FreezeThaw qw( freeze thaw );

my $DB_FILE = 'questions.frozen';
unless (-e $DB_FILE) {
    open FH, '>', $DB_FILE;
    close FH;
}

my $data;
eval { ($data) = thaw( read_file( $DB_FILE ) ) };
$data = {} if $@;

print "How do you feel?";
chomp( my $feeling = <> );

if ($data->{$feeling}) {
    print "$feeling is a $data->{$feeling} feeling\n";
} else {
    print "I don't know about $feeling, is it good or bad?";
    chomp( my $answer = <> );
    $data->{$feeling} = $answer;
}

open FH, '>', $DB_FILE;
print FH freeze $data;
close FH;
[download]

I did not include error checking and i opted to use a hash instead of an array. Hope this helps!

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Yey, thanks I'm quite noobie as you know, can you comment a little bit? xD I hate just copy and paste the code if I cannot understand it..

Can you start the commenting? Comment as much as possible about every line of the program