for my $a (@members) {
    for my $b (@memebers) {
         $overlap->{$a}{$b} = 0;
    }
}