What is the last line doing?
I understand the rest?
Where did $families come from?
I understand the rest?
Where did $families come from?
Code:
while(<SARACEN>) {
chomp;
my ($family, $people) = split (/=/, $_);
my @members = (split /,\s*/, $people);
foreach my $member (@members) {
push @{$people{$member}}, $family;
$families{$family}++;
}
}