if (grep { $color eq $_ } qw(red green blue))
{
    # something
}