I'm really surprised nobody has mentioned one of the more idiomatic and concise (though not necessarily efficient) ways to do this, grep:

die "bastard\n" if grep $input eq $_, @matching;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print