in reply to How do I stop appending data

Reset $protein at the top of your while loop: 
while (read_fasta_sequence($fh, \%sequence_data)) {
    $protein = '';

[download]

If that's not what you want, then show your expected output.

Replies are listed 'Best First'.
Re^2: How do I stop appending data
by 4pt8secs (Novice) on Mar 07, 2013 at 18:45 UTC

    Thanks much. That does it.

[reply]

In Section Seekers of Perl Wisdom