while(<>) {                            
    chomp;                            
    @line = split;                    
    if ($line[0]=~/^[0-9][0-9]?/) {    
	$val=$line[0];                 
	$a=1;
      FRASE:for ($val==$a; $a++;) {    
	  $r=\@line;                  
	  if ($val==1) {
	      %frase = ();
	      %subj = ();
	      %mod = ();
	  }
	  %frase = ($r[0] => $r);  
	MOD:if ($frase{$r[0]}[7]=~/^mod$/){   
	    if ($frase{$r[0]}[4]=~/^A$/){
		if ($frase{$r[0]}[6]>0){
		    if ($frase{$r[0]}[2]=~/^[A-Za-z]+[^@#\/%\=\$\^\*][-]?/){ 
			if ($frase{$r[0]}[2]=~/^tale$|^Tale$|^tali$|^Tali$|^stesso$|^primo$|^secondo$/){
			} 
			else{        
			    $lemmamod=\$frase{$r[0]}[2];
			    $cod=$frase{$r[0]}[0];        
			    $head=$frase{$r[0]}[6];            
			    %mod = ($cod=> [$head,$$lemmamod]);
			}
		    }
		}
	    }		
	} 
	NOME: if ($frase{$r[0]}[3]=~/^S$/){     
	    if ($frase{$r[0]}[2]=~/^[A-Za-z]+[^@#\/%\=\$\^\*][-]?/){
		$id=$frase{$r[0]}[0]; 
		$lemmasubj=\$frase{$r[0]}[2];         
		%subj = ($id=> [$id,$$lemmasubj]);
	    }
	} 
	ID: {
	    if($subj{$id}[0]==$mod{$cod}[0]){
		print "$subj{$id}[1]\t$mod{$cod}[1]\n";
		  delete $mod{$cod};
	    }
	  }
	  %frase = ();
	  last FRASE;                    
      } 
    }
}

