Select Code to Download

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

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