push @{$wo_usr_proj{$project}}, $user;

##</code><code>##

foreach $proj(sort(keys(%wo_usr_proj)))
{
   print RHANDLE "$proj:\n";
   foreach $element(sort($wo_usr_proj{$proj}))
   {
      print RHANDLE "$element\n";
   }
   print RHANDLE "\n\n";
}

##</code><code>##

foreach $proj(sort(keys(%wo_usr_proj)))
{
   print RHANDLE "$proj:\n";
   foreach $element(sort($wo_usr_proj{$proj}))
   {
      print RHANDLE \$element;
      print RHANDLE "\n";
   }
   print RHANDLE "\n\n";
}