use List::MoreUtils qw(any);
if (any { $bands[0] eq $_ } qw(red green blue yellow))