my %chars;
        foreach my $site ( @{$tfbs} ) {
            my $bp = substr($site,$pos,1);
            $chars{$bp} = 1;

        }
        
       # this heuristic seems to be faulty
        my $min_mm = keys %chars - 1;
        push @mincol, $min_mm;