Possible Syntax Error

I think the line: while (my ($key, $value) = each %{ $hash{$family} } ) { uses $hash, where it should be using $HoH. $hash doesn't seem to be defined or set elsewhere.