Help for this page

Select Code to Download

Select or download this

my @sets = (\@array1, \@array2, \@array3, \@array4 );
for my $h (0..$#sets) {
    for my $j ($h+1..$#sets) {
...
    print FILEOUT scalar @intersect;
    print FILEOUT "\n";
}