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