open(DAT,'<',$datei) or die $!;
my @ten_lines;
my $cnt=0;
while(my $line=<DAT>)
{
  push(@ten_lines,$line);
  $cnt++;
  if($cnt>=10)
  {
   $cnt=0;
   &verarbeite_10_zeilen_in_thread([@ten_lines]);
   @ten_lines=();
  }
}
# übrig geblibenen Zeilen verarbeiten
&verarbeite_10_zeilen_thread([@ten_lines]) if(@ten_lines>0);
close(DAT);