You're close, but the loop should be like this:

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

Direcly out of the O'Reilly "Programming Perl" book, page 271.