1239    2
3434    2
3542    2
7484    2
.
.
.

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

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

print($_, "\t", $array[$_]."\n");