my @known = qw/FOO BAR BAZ/;
print "Talk to me, Goose. ";

my $input = <STDIN>; chomp($input);

$input = uc $input ;

if( grep { $input eq $_ } @known ){
    print "You gave us $input, which is known. Have a nice day.\n";
}else{
    print "bad input: $input\n";
}