my $fh = Tie::Handle::FromArray->new( ["AAAAAAAAAAAAAAA", "AAAAAAAGGAAACCA"] );
my $in  = Bio::AlignIO->new(-fh => $fh, -format => 'fasta');