if ($laenge ==  $globla)
                           {

                          for my $stellen (@stellen)
                            {
                             substr $row2, $stellen,1,';';
                            }
 
                  #       $line=$row2;
                                  print $fh2 $row2;