my $word_count = scalar keys %foo;