Select Code to Download

FLINTSTONES=BARNEY, FRED, WILMA
JETSONS=MAX, TONY, WILMA
SIMPSONS=LISA, BARNEY, WILMA, HOMER
ALCATRAZ=ELIJAH, MAX, WILMA

while(<DATA>) {
    chomp;
...
        push @{$people{$member}}, $family;                     #push i
+nto an array
        $families{$family}++;
my $total_families = scalar(keys %families);