1.  foreach (@ufile_contents)
2.  {
3.    ($buser2,$email,$project) = split(/\|/,$_);
4.    if($uo_hash{lc($buser2)} =~ /WO/)
5.     { 
6.       @usr_list = $wo_usr_proj{$project};
7.       push(@usr_list,$buser2);
8.       $wo_usr_proj{$project} = @usr_list; 
9.     }
10.  }