foreach $data (@alledateien) {
   open (IN, "$data") || die "kann die Dateien nicht öfnnen"; #Dateien öffnen
   while(<IN>) {
      print OUT $_;
   }
   close IN;
}
close OUT;