Select Code to Download

while (<INPUTB>)
{
...
   
   print OUT "$u"."\t".$rel."\t".$v."\t".$conteggio."\n";
}

my $cur_superclass;
my @records;
...
   push @records, [ $u, $superclass, $rel, $v ];
   $cur_superclass = $superclass;
}

sub calcolo {
    my $rRecs = shift;
...
    # combine partials
    return  $partials / $found_recs;  # or some such...
}