while (my ($home, $topics)=each(%topics)){  # should be %ttopics