Wie gesagt es sind sieben Subroutinen, die alle nach dem folgendem Schema ablaufen:

$sth = $dbh->preapre("Select...");
$sth->execute();
while(@zeile=$sth->fetchrow_array())
{ unshift(@liste, @zeile); }
$sth->finish();