sub fishes { my $fishHoH = shift; for my $key (keys %{$fishHoH}) { print "$key fish: ", $fishHoH->{$key}->{fish}, "\n"; } } my %HoH = ( one => { fish => 'red' }, two => { fish => 'blue' } ); &fishes(\%HoH);
-Bird
In reply to Re: Passing a multidimensional Hash to a sub-routine
by Bird
in thread Passing a multidimensional Hash to a sub-routine
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |