my $out = Bio::SeqIO->new(
                    -file    => ">$file"."_fasta",
                    -format    => 'Fasta');