Passing nested hash to a function

[Jim]

Hi 
I am trying to pass a HoH structure to a function which should iterates the
contents of the HoH. From the docs I read, it should work, but I get no
output.  What am I missing?  
Thanks,
Jim

----
%hoh = (  B1 => {
                 a => 'fox', 
                   b => 'fire',
              },
              B2 => {
                 a => 'foo', 
                   b => 'bar',
              },
);

$href = \%hoh;
func($href);

sub func {
        my $h = shift;
        for $k (keys %$h) {
                for $n ( keys  %{ $h{$k} } ) {
                   print "$n => $h{$k}->{$n}\n";
           }
        }
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>