mein Aufhäng-Problem liegt wohl in diesen Zeilen, denn beim auskommentieren passiert es nicht:

Quote

my $result = sth->fetchall_arrayref(); #>> hier ist Zeile 215

for (my $i=0; $i = @{$result}-1; $i++) { # Zeilen durchlaufen
print "$result->[$i][2]<br>";
}

aber Deine Variante funktioniert auch nicht so recht.
Der erste Datensatz wird ausgegeben, aber dann kommt folgende Fehlermeldung:

Quote

DBD::mysql::st fetchrow_hashref failed: fetch() without execute() at f:\perl\scripte\feurio_cddb\sql_abfrage.cgi line 224.

line 224 ist diese:
while (my $set = $sth->fetchrow_hashref()) {