open(DATEI,$file);
while(<DATEI>)