I'm surprised noone pointed out the obvious yet:

if(grep $string eq $_, qw(this that the_other)) {
    # ...
}
[download]

In scalar context, grep returns the number of matched elements, and if that's zero, the condition is false, if it's anything more then zero, it succeeds.

Makeshifts last the longest.