use strict;

my $zeile = "";
my $i = 0;
my(@fh,@que3,@cut);

foreach $zeile(@fh)
{
  @cut = split(",",$zeile);

  if(substr($cut[2],0,6) eq 'OPTIO3')
  {
    $i = 3;
  }
  
  if(substr($cut[4],0,14) eq 'Palettenschein')
  {
    $que3[$i][0] = $que3[$i][0] + 1;
    $que3[$i][1] = $que3[$i][1] + 1;
  }