while (my ($home, $topics)=each(%topics) ) { # ^