my $suffix = '.JPL';
my $srcdir = $Zeilen[3]."/";
my @dateien = glob($srcdir."*$suffix");
for my $datei (@dateien) {
    my $document;
    &functions(\$document,$datei,\%hash,$srcdir);
    push(@documentlist,$document);
}