Select Code to Download

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

sub tHelp
{\%ttopics
my $startpoint=$target;

# some where in the part that calls tHelp:

...
    my ( $param, $aref ) = @_;
    ...
}