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

-derby