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