What is this doing? 1

[sdslrn123]

What is the last line doing?
I understand the rest?

Where did $families come from?

while(<SARACEN>) {
    chomp;
    my ($family, $people) = split (/=/, $_);
    my @members           = (split /,\s*/, $people);
    foreach my $member (@members) {
        push @{$people{$member}}, $family;
        $families{$family}++;
    }
}

 

[raklet]

*Sigh*. It was already explained in the post where this code was given to you. Go back to your docs and read about associative arrays (hashes). In particular, look for the part on adding, reading, and modifying individual key value pairs. Once you understand hashes, then you will know exactly what $families{$family}++ is referring to.

Raklet

 

[sdslrn123]

I knew I came across this somehwere...hehe
Thanks, found it.
)