sub consensus {
  ... # code from before, until:

    # store only those who occur the most times
    my @most = grep $freq{$_} == $max, keys %freq;              
    @most = grep $_ ne " ", @most if @most > 1;
    push @cons, \@most;
  }

  return \@cons;
}