Auslesen eines Arrays für Listenausgabe

[Peter]

Hallo Leute!

Ich tüfftler jetzt schon eine Weile an einem im eigentlichen ganz einfachen Problem. Ich habe ein Array, in dem verschiedene ID-Nummern als Einzelfelder abgelegt sind. Jetzt möchte ich das Array ausgeben und zwar als sortierte HTML-Selectbox.

Mein Ansatz sieht so aus:
...
    print qq~
    <select size="1" name="wid">
    <option value=""> </option>
    ~;
    @wid1 = sort(@wid2);
    $laenge = @wid1;
    print "alle wid: @wid1<br>L: $laenge<br>";

for(my $i=0,$i < $laenge,$i++){
    print "<option value='$wid1[$i]'>$wid1[$i]</option>";
    }
    print "</select>";
...

Das Array @wid2 wird weitere oben im Script ausgelesen.

Wenn ich das Script wie oben beschrieben teste, wird in der Selectbox nur ein Teil des Arrays ausgegeben und 3x wiederholt.

Sicher habe ich irgendwo nur einen kleinen Denkfehler, denn solche Sachen habe ich schon öfter programmiert - nur wo?

Vielleicht kann mir jemand von Euch helfen - Danke im vorraus!

Ciao Peter