foreach my $article (keys %locations) {
        process_article(*WFH, \%{$locations{$article}}, [], \@all_chroms);
        }

##</code><code>##

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