my $consensus = '';

   for my $i (0..length($seq)-1) {
      $consensus .= consensus( map substr($_, $i, 1), @lbls );
   }

   print("SEQ: $seq\n");
   print("LBL: $consensus\n");