#!perl
my $factory = Bio::Tools::Run::Alignment::Clustalw
              ->new(-matrix => 'BLOSUM');
.
.
.
my $alnio = $factory->align($seq_array_ref);
while( my $aln = $alnio->next_aln ) {
  .
  .
}