if ($ityp==27) {
      $array[$noe]++;    
     }
     }
     }
     }
    my $number;
    for(0..$#array){

#        $number++
      if($array[$_]==2 ) {
        $number++
      #  print($_, "\t", $array[$_]);
      }
      }
      print("anzahl", $number);
     # print($_, "\t", $array[$_]);