my $document    = shift;
my $datei    = shift;
my $hash2    = shift;
my $srcdir    = shift;



#öffne Datei $datei (Form: *.JPL) und lese Zeile der Datei ein
open(DATEI, "<$datei") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);

....