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 = ();
	      %verb = ();
	      %obj = ();
	  }
	  %frase = ($r[0] => $r);  
	OBJ:if ($frase{$r[0]}[7]=~/^obj$/){   
	    if ($frase{$r[0]}[4]=~/^S$/){ 
		if ($frase{$r[0]}[2]=~/^[A-Za-z]+[^@#\/%\=\$\^\*][-]?/){ 
		    $lemmaobj=\$frase{$r[0]}[2];
		    $cod=$frase{$r[0]}[0];        
		    $head=$frase{$r[0]}[6];            
		    $head=int $head;
		    $cod=int $cod;
		    %obj = ($cod=> [$head,$$lemmaobj]);
		}
	    }
	} 
	VERB:if ($frase{$r[0]}[3]=~/^V$/){     
	    if ($frase{$r[0]}[2]=~/^[A-Za-z]+[^@#\/%\=\$\^\*][-]?/){       
		$id=$frase{$r[0]}[0]; 
		$lemmaverb=\$frase{$r[0]}[2];         
		%verb = ($id=> [$id,$$lemmaverb]);
	    }
	} 
	ID: {
	    if($verb{$id}[0]==$obj{$cod}[0]){
		print "$verb{$id}[1]\t$obj{$cod}[1]\n";
		delete $obj{$cod};
	    }
	  }
	  %frase = ();
	  last FRASE;                    
      } 
    }
}
