my $sth = $dbh->prepare("SELECT stuff FROM table");
$sth->execute;
my @data = $sth->fetchrow_array;

##</code><code>##

print "<select name = 'test'>";
foreach my $entry ( @data ) {
  print "<option value = '$entry'>$entry</option>";
}
print "</select>";