if (grep { $bands[0] eq $_ } qw(red green blue yellow))