Select Code to Download

open( FASTAFILE, $ARGV[0] );
while (<FASTAFILE>) {
...

push ( @sequences, $fasta );
#then iterate @sequences to run over BLAST

  # script 1: create the index
  use Bio::Index::Fasta; # using fasta file format
...
      # do something with the sequence
  }