foreach my $article (keys %locations) {
        process_article(*WFH, \%{$locations{$article}}, \@{$lists{"$list"}}, \@all_kwords);
        }