my $out=();
        $out = Bio::AlignIO->new(-file => $array[3], -format => 'fasta');