Dringendes Perl-Problem!!!

[SNo0py]

Hallo! Ich habe ein absolut dringendes Perl-Problem, ich komme einfach nimma weiter...

Auf http://www.xdream.cc/cgi-bin/homanto/homanto.pl bekomme ich immer einen ominösen Fehler, bei mir am eigenen Server (Apache auf dem lokalen Rechner) funkt aber alles... das gibt es doch nicht?!?!

Der Code:

open ...                              öffne file
my @data = <FILE>;                    lese daten
close ...                             schließe file wieder

my $c = scalar(@data) - 1;                     
for ( 0 .. $c ) {                     für jedes gelesene Element...
     my $tmp = $data[$_];          
     ... leerzeilen etc. filtern...          

     my @dbset = split(/\|/, $tmp);   aufteilen (|)       

     if($dbset[0] eq ... && ...) {    wenn ... ...          
          delete $data[$_];           Zeile 83... 
hier sollte der ganze Datensatz 
(sprich die ganze Zeile) gelöscht 
werden...    
          last;                       und raus  
     }

Sinn dahiner: ich öffne ein File, lese es ein, suche nach einer ID (das sind die Abfragen), lösche den Datensatz und schreibe das File wieder raus.

Nur regt sich das Programm schon auf, bevor ich was ausführe und das Programm sollte da gar nicht reingehen, wenn ich keine Parameter angebe...

kann mir da wer helfen??