Select Code to Download

my $index = 'path/to/file/file.name';
tie (@master, 'Tie::File', $masterList) or die "Can't tie $masterList"
+;
...
        print $tFile $split[1];
         push (@idxArray, $split[1]);
 }

1
2
...
17
etc...
3000000

1  atc
2 gca
...
5 aaa
etc...
29000000 ttg