for($row[0])
        {
            $_ =~ s/^\s+//g;              # Leerzeichen am Anfang entfernen
            print DATEI "$_";
        }    
        for($row[1])
        {
            $_ =~ s/^\s+//g;
            $_ = sprintf("%07i",$_);      # Von links auf 7 Stellen mit Nullern auffüllen
            print DATEI "$_";
        }
        for($row[2])
        {
            print DATEI "$_";
        }
        for($row[3])
        {
            $_ =~ s/^\s+//g;           # Leerzeichen am Anfang entfernen
            print DATEI "$_";
        }
        print DATEI"\n";
   }
   close(DATEI)
      
}
close(DATA);