my $total_terms = $total_families + scalar (keys %people);

##</code><code>##

while(<DATA>) {
    $seen{$1}++ while /(\w+)/g;
}
print scalar(keys %seen);