print "<table>\n";
for my $doc (sort keys %docTitles) {
    print "<tr><td>$doc</td><td>$docTitles{$doc}</td></tr>\n";
}
print "</table>\n";