foreach $f (keys %drw) { foreach $g ( keys %{$drw{$f}} ) { print "$f/$g f($drw{$f}{$g})\n"; } } [download]
-derby
In reply to Re: Double Hash Key by derby in thread Double Hash Key by whaled