Select Code to Download

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

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