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