#!usr/bin/perl
use warnings;
use strict;
use 5.012;
# 923276

my @bands = qw(red green blue yellow black brown);

my $test = "green";

for my $band(@bands) {
    if ($test eq $band) {
        say "matched $test and $band";
    }
}
[download]

Output: matched green and green