@bad_answer=(
        "Bad",
        "Bad to be honest",
        "Not good",
        "Not good enough"
); 

##</code><code>##

my $useranswer=<STDIN>;
if ($useranswer~~@bad_answer){print "ok";} #shotversion
else{SAVE THE DATA INSIDE THE ARRAY}
@bad_answer=(
        "Bad",
        "Bad to be honest",
        "Not good",
        "Not good enough",
        "USER INPUT"#I'll have 3 different arrays
);