Der Ansatz sieht gut aus, aber der Code ist noch nicht syntaktisch korrekt.
- Wo ist das Ende der while-Schleife? Das Ende des if bzw. der sub?
- Da steht einmal eine Variable $adresen statt $adressen.
- Du übergibst die Variablen $CGI, $DBH, $STH an die Funktion suche(), aber greifst sie in der Funktion nicht wieder auf, sondern benutzt die "globalen" Variablen. Warum legst du $DBH und $STH überhaupt im Scope des Programms an, wenn du nur (jeweils) in der Sub brauchst? Deklariere sie lieber lokal in der Sub.
- Da fehlt noch die Funktion eintragen().
- Und rein auf das HTML bezogen: Das "</table>" fehlt, das "</HEAD>" am Ende soll wohl ein "</HTML>" sein, und die Spaltenüberschiften sollten für ein korrektes Markup <th> sein und nicht <td>.