Select Code to Download

@bad_answer=(
        "Bad",
...
        "Not good",
        "Not good enough"
);

my $useranswer=<STDIN>;
if ($useranswer~~@bad_answer){print "ok";} #shotversion
...
        "Not good enough",
        "USER INPUT"#I'll have 3 different arrays
);