my $opts = $dbh->selectcol_arrayref(<<"");
  SELECT DISTINCT market
    FROM table
   ORDER BY market ASC

print qq{<select name="market" size="1">};
print map { qq{<option value="$_">$_</option>\n} } @$opts;
print qq{</select>};