Select Code to Download

for($row = 0; $row < $no_of_seq; $row++){
        my $sum = 0;
...
        }
        print "$myArray[$row][0] $sum\n";
}

for my $row (@myArray) {
        my $sum = 0;
...
        }
        print "$row[0] $sum\n";
}

#!/usr/bin/env perl 
use strict;
...
THR8    57    99    12        
HUA4    100    177    199        
ABA5    2    5    10