open(my $fh, '<', $datei) or die "ERROR open $datei ($!)\n";
my @data=<$fh>;
close($fh);