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";
}