while( defined my $line = <DATEN> ) {
  print "Zeile $.:\t$line\n";
  push( @zeilen, $line );
} # while