CPAN::Groonga

             # Id generator's for titles and subjects
  my @json;                                                                     # Json holding titles and subjects
  for my $t(sort keys %$classif

ification->{$t}{$s}->%*)                        # Load topics for title and subject
       {push @json, qq(topicDetails.push([$iTitle, $iSubject, "$f"]););
       }
      push @h, <<END;              

ed topics
<td valign="top">
<div id="div"></div>
END

  my $json = join "\n", @json;                                                  # Json containing title and subjects to topics
  push @h, <<END;