my @list;
for my $datei ( @dateien ) {
  open my $fh, '<', $datei or die "$datei: $!";
  push @list, <$fh>;
  close $fh or die "$datei: $!";
}
chomp @list;