Select Code to Download

use Bio::SeqIO;

...
}

my @seqlist = grep { defined } map { $seqs{$_} } @idlist;

use Bio::Index::Fasta;

...
     return;
 }
}