editiere dein posting mal bitte und ersetze die code-tags durch perl-tags (statt code einfach perl reinschreiben)
Mit Syntax-Highlighting liest es sich viel besser :)

Aber folgende Regeln solltest du beachten beim Arbeiten mit einem DBMS:
-Nur Einmal am Anfang zur DB verbinden und das DB-Handle allen Routinen übergeben
-Nur die Spalten auswählen die du auch wirklich benötigst

Und sonst:
-keine globalen Variablen, immer Referenzen(wegen dem Speicherplatz) übergeben