Select Code to Download

1 2 3 4
1 2 3 5
1 2 4 5
1 3 4 5
2 3 4 5

    
A    B    C    D    E    
0    0    0    +    0    
...
+    +    +    +    +    
0    +    +    +    +    
+    0    +    +    0

 open (BC,"file2.txt")||die("cannot open");
open (AB,"file1.txt")||die("cannot open");

...
    print $col4[0],"\t",$col2[0],"\t",$col3[0],"\t\t",$l,"\n";
    print $col1[0],"\t",$col2[0],"\t",$col3[0],"\t",$col4[0],"\t",$m,"
+\n";
  }

A    B    C        1
A    B    D        1
...
B    C    E        3
E    C    D        4
B    C    D    E    3