Nur mal ein paar allgemeine Tipps:

*) Du solltest die ?-Schreibweise von DBI verwenden. Die ist auch in diesem PDF gezeigt.

*) Die " um Variablen solltest Du weglassen (z.B. bei "$_->{neid}" )

*) Variablen erst bei der ersten Verwendung deklarieren. So hast Du eine endlos lange Liste mit Variablen am Anfang der Subroutine.

Alternativ könntest Du das so zusammenfassen:my ($newdata,$query,$sth);. So wie es im Moment ist, ist es ziemlich unübersichtlich!

*) Die ganzen SQL-Statements am Anfang initialisieren und schon ein prepare machen. Das bringt etwas bessere Performance und man hat die Statements besser im Blick. Dann ist die ?-Schreibweise von DBI aber unerlässlich

Formatierfehler geglättet - Relais\n\n

<!--EDIT|Relais|1167307266-->