Also, that loop could be written,

for (values %locations) {
    process_article(*WFH, $_, [], \@all_chroms);
}
[download]

After Compline,
Zaxo