} elsif($r->[0] eq '5S' && length($tmpseq) >= 60 && length($tmpseq) <= 200) {
unless(exists $derepHash{'5S'}->{$md5}) {
print OUT5 '>'.$db.'5S_'.$count5."\n".$tmpseq."\n";
$derepHash{'5S'}->{$md5}->{c} = $count5;
$derepHash{'5S'}->{$md5}->{l} = length($tmpseq);
$count5++; <- this line should have $count5++, instead of $count16++ or $count23++
}
$derepHash{'5S'}->{$md5}->{i}->{$id} = [@taxs];
Anonymous