my $document  = shift;
my $datei     = shift;
print "${$datei}";

open(DATEI, "<${$datei}") || die "Datei nicht gefunden";
my @Zeilen = <DATEI>;
close(DATEI);