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);