Help for this page
#!/usr/bin/perl ... for (keys %docwords) { print "$document_name\t$_\n"; }
SELECT distinct(doc_id) from doc_word_index where doc_word = ?"