my @answer=(
        "Bad",
        "Good",
        "Not good enough"
);
chomp(my $user_answer=<STDIN>);

if (grep (/\b$user_answer\b/, @answer)){
       print "Ok\n";
}