#!/usr/bin/perl
use strict;
use warnings;

my $noe1=0;
my @array;
my $i;
#gesamtzahl der events
my $noe;

while(<>) { 
my @stuff=split(' ');

 if(/UQMD/){
 }
 elsif(/projectile:/){
 my $protar=$_
 }
 elsif(/equation_of_state:/){
  my $ecm=$stuff[5];
  my $midy=log($ecm/0.938);
  my $elab=$stuff[3];
  my $plab=$stuff[7];
 }
 elsif(/event#/){
  $noe++                    # numbers of events: noe
 }      
 else{
  if($#stuff==14){ 

   my @x=@stuff[0..3];   
   my @p=@stuff[4..7];
   my @id=@stuff[8..11];

   my $mass=$id[0];
   my $ityp=$id[1];
   my $iz2=$id[2];
   my $charge=$id[3];


    if ($ityp==27) {
      $array[$noe]++;    
     }
     }
     }
     }
    my $number;
    for(0..$#array){
#      if( defined($array[$_]) && $array[$_]==2){
#        $number++
      if($array[$_]==2 ) {
        print($_, "\t", $array[$_]);
      }
      }
      #print("anzahl", $number);
     # print($_, "\t", $array[$_]);

#    }
#   }
#  } 
# }