$daten[6] = "$8";
     my $mitpunkt = $daten[6];
     $mitpunkt =~ s/\.//g;
     $daten[6] = $mitpunkt;
$daten[7] = "$9";