my $suffix = '.JPL';
my $srcdir = $Zeilen[3]."/";
my @dateien = glob($srcdir."*$suffix");

for(@dateien){
       if(index($_,"---") == 0){ # line 63
        (my $newname = $_) =~ s/^---//;
        rename $_,$newname;
        $_ = $newname;
    }
    my $document;
     &functions(\$document,$_,\%hash,$srcdir);
     push(@documentlist,$document);
}