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

   # note dereference: @{ $array_ref_here }
   foreach $element(sort @{ $wo_usr_proj{$proj} })
   {
      print RHANDLE "$element\n";
   }
   print RHANDLE "\n\n";
}