#!/usr/bin/perl

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

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

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

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

   if ($ityp==27) {
   $noe1=$noe;
    print("lambda \n");
    print("Event", $noe1, "\n");
}

  if ($itype==27 && $noe1==$noe){
    print("match");

#
#   if ($ityp== 27) {
#   $noe2=$noe;
#    print("Event", $noe2, "\n");

#     $neo2=$neo;
#       if ($neo1== &neo2){
#     print("lambda \n");
#     print("Event",$neo2, "\n");

#    $pt=sqrt($p[1]*$p[1]+$p[2]*$p[2]);
#    $ipt=int($pt/$dpt);
#    $npim[$ipt]++;
# print("2 lambdas \n");

#
#hier würde ich jetzt gerne überprüfen ob die 27 zwei mal im gleichen event auftaucht
#

}
}
 }
  }