Select Code to Download

TATTATGAGAATAGTGTGCATTTT    3
ATAGAGCAAAAGGGCAAATGCTGA    6
...
CGCATTACATTTGGAGCC    1
ACTCCAGGCAGCGTAGAGTT    1
ATCAACGTTGCTGCATCGG    1

>dme0_count=3
TATTATGAGAATAGTGTGCATTTT    
...
ATAGAGCAAAAGGGCAAATGCTGA    
>dme2_count=52
TGAGAATAGTGTGCATTT

#!/usr/bin/perl -w

...
}
close ($tabdata);

Here is the error:
a> line 1.
...
.
.
Use of uninitialized value $fields[1] in numeric gt (>) at tab.pl line
+ 19, <$tabdata> line 21.