Select Code to Download

#!/usr/local/bin/perl -w

...
print <<EOF;
</select>
EOF

my @market712  = $market_sth->fetchrow_array;
while (my $market = $market_sth->fetchrow_array) {
   print "<option value=\"$market\">$market</option>" ;
}

# my @market712  = $market_sth->fetchrow_array;
while (my $market = $market_sth->fetchrow_array) {
   print "<option value=\"$market\">$market</option>" ;
}