solange du eine zeile aus dem FH lesen lesen kannst, wird die zeile $_ zugewiesen
  fuege die zeile (inkl. zeilenumbruch) ans ende von @lines an
  wenn in der Zeile Date: steht, speichere sie in $Datum
  wenn in der Zeile Zeit: steht, speichere sie in $Zeit
  fuege die zeile (inkl. zeilenumbruch) nochmal ans ende von @lines an
  loesche aus $Zeit alle Zeichen, die keine Ziffern sind, egal, ob $Zeit befuellt ist oder nicht
  baue einen Key zusammen => $dt
  ...