for (qw/green blue red/) {
    if ($_ eq $color) { ... }
}

for each of green, blue and red:
    if it is the color, do something