while (read_fasta_sequence($fh, \%sequence_data)) {
    $protein = '';