for (<INFH>) {


##</code><code>##

    my ($user, undef, $project) = split /\|/;


##</code><code>##

    push @{$wo_usr_proj{$project}}, $user
        if $uo_hash{lc($user)} =~ /WO/;
}