Select Code to Download

this is my text file:
textfile line1: 1 => A B C D E F G
...
textfile line4: 4 => A C
textfile line5: 5 => A D E F G
textfile line6: 6 => G

1 => A B C D E F G
5 => A D E F G #(Since, there are 5 matches in the above array..and th
+e order decreases depending pon the matches)
...
3 => D E F
4 => A C
6 => G

while(<F1IN>) {
      chomp;
...
            print "## $i $j is $AOA[$i][$j]\n";
            }
    }

## 0 0 is A
## 0 1 is B
...
## 4 0 is A
## 4 1 is C
## 5 0 is G