# Datafield Datei einlesen
open (FILE1, "<$infile1") || die "\n Die Datei '$infile1' konnte nicht geoeffnet werden\n";


@files = split(//, &infile1);