@colors = ("red", "blue", "green", "cyan");
print "<SELECT NAME=\"MyColor\">\n";
for $x (@colors) {
  printf "<OPTION%s>$x", $color eq $x ?  " SELECTED" : "";
}
print "</SELECT>\n";