You are missing a paren in the last while:

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

I didn't read the rest.

Phil