for my $article ( keys %locations ) {
    process_article( *WFH, $locations{$article}, ... );
}