habe mal schnell ueber den code geschaut, und folgende stellen kommen mir komisch vor:

1. nach dem if-Block rufst du main() auf, wo nochmal CGI->new stattfindet; vielleicht das CGI->new aus dem Block und der subroutine herausziehen und somit nur einmal ausfuehren...

2.

ich vermute, da ist anstelle des like eher ein = angebracht

3.

sollen da wirklich 7-10 d's vorkommen? oder ist da
gemeint? (7-10 ziffern) (< braucht man normalerweise nicht zu quoten, ausser eventuell, wenn man m<...> als trennzeichen fuer den regulaeren ausdruck verwendet; aber meistens nicht mal dann...)

4. ebenso ein paar zeilen tiefer

5. beim ->execute fehlt eine fehlerabfrage...

das ist gerade bei mysql wichtig, weil erst beim execute alles an die datenbank geschickt wird, und also dort erst dann die eigentlichen db-fehler auftreten koennen

6. $hash{$docname} } = {%hash};
da ist
$hash{$docname} = \%hash; schneller, weil da nicht umkopiert wird (dann musst du aber my %hash = (); in die while-schleife reinschreiben und nicht ausserhalb, weil sonst %hash eventuell werte zwischen den einzelnen while-durchlaeufen behaelt, und das vielleicht mal zu fehlern fuehren kann...