AAAAAAAAAAAAAAA-------------BBBBBBBBBBBBBBBBB-CCCCCCCCCCCCC---CCCCCCCCCCCCCCC
------AAAAAAAAAAAAAAAAAA----------------BBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCC
-------------------AAAAAA---------BBBBBBBBBBBBBBBBBBBBBBB------CCCCCCCCCCCCCC
-------------------AAAAA----------------------------BBBBBBBBBBBBBDDDDDDDDDDDD

##</code><code>##

sub consensus {
   $rest='-';
   my %counts;
   $counts{$_}++ for @_;

   my ($consensus) = sort { $counts{$b} <=> $counts{$a} }
                     keys(%counts);

   return ( $counts{$consensus} / @_ >= 0.7
     ? $consensus
    : $rest
   );
}


##</code><code>##

 
-------------------AAAAA----------------------------BBBBBBBBBBBBBDDDDDDDDDDDD