Then you do need the initialization. You could write something along the lines of

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

before the other loop.