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>};

##</code><code>##

print $q->popup_menu(-name => 'market',
                     -size => 1,
                   -values => $opts);