my @answer=(
        "Bad",
        "Good",
        "Not good enough"
);
chomp(my $user_answer=<STDIN>);
if ($user_answer eq @answer){
       print "Ok\n";
}