~/MyPerl
   |
   |__ ans # this stores all the .fasta files (input)
   |__ result_ans # to store the result
   |__ mycode.pl