PERL Datenbank PROBELM

[Claudia Schroder]

Hallo !

Ich habe ein Problem mit meiner Perl-Datenbank-Abfrage.
Mittels eines Formulars sollen Daten aus einer Datenbank gelöscht werden. Der Benutzer hat die Möglichkeit mittels checkBoxen
die entsprechenden Daten auszuwählen (hier "KundenNummern". Diese werden mittels Formular übermittelt und sollen dann in SQL +Perl
verarbeitet werden. Das Problem ist, daß immer nur die erste
Kundenummer gelöscht wird ! Hab Ihr eine Idee was falsch sein könnten ?

$KundenNummern = "";  
$KundenNummern = $fdat{KundenNummern};  

@KundenNummer = split(/\t/, $KundenNummern);  

$SQL = "DELETE FROM kundensg";  

$Kunde = shift(@KundenNummer);  
$SQL .= " WHERE kundennummer\_id  = \'$Kunde\'";  

while( $Kunde = shift(@KundeNummer) ) {  

$SQL .= " OR kundennummer_id  = '$Kunde'";
}

-]  

Danke in Vorraus
                Claudia