my (@file_data, %seqs, $query, $dna);