Danke, für die Antwort.
War wirklich etwas seltsam.
So funktionierts jetzt:
print "<FORM name=Formular1>";
print "<FONT size=3>Testauswahlfeld:</FONT>";
print "<SELECT>";
my $zaehler=0;
while (my $test=$sth-> fetchrow_array())
{
print "<option value=$zaehler> $test";
$zaehler+=1;
}