if (exists ($seq_id{$id})) {
        print ">";
        print $seq_id{$fasta_id};
        print "\n".$seq."\n";
    }

##</code><code>##

if (exists ($seq_id{$id})) {
        print ">";
        print $seq_id{$id};
        print "\n".$seq."\n";
    }