while (<INPUTB>)
{
   my ($u, $superclass,$rel,$v) = (split)[0,1,2,3];
   my $conteggio=&calcolo($u,$v);
   
   print OUT "$u"."\t".$rel."\t".$v."\t".$conteggio."\n";
}