$drw{dave}{one} = "done";
   $drw{dave}{two} = "dtwo";
   $drw{dave}{three} = "dthree";

   $drw{eileen}{one} = "eone";
   $drw{eileen}{two} = "etwo";
   $drw{eileen}{three} = "ethree";

   foreach $f (keys %drw) {
     print "f($f)\n";
     }

  # ????? how do I find whats in the second hash key set {}
  #     foreach $f (keys %drw{eileen}) {
  #        print "f($f)\n";
  #        }