my $last = @members - 1;
for my $i (0 .. $last) {
    for my $j ($i + i .. $last) {
        $overlap->{$members[$i]}{$members[$j]}++;
        $overlap->{$members[$j]}{$members[$i]}++;
    }
}