bei $sth->prepare(...) wuerde ich auch noch eine fehlerabfrage machen, weil manche datenbanken schon das prepare ueberpruefen (mysql allerdings nicht, glaube ich); geht genauso wie beim execute

die Abfrage if ($sth->rows sollte man besser ausserhalb von while ( ... = $sth->fetchrow->hashref())  machen, weil in der while-schleife eh schon klar ist, dass da ein ergebnis kommt; falls keines waere, wuerde die while-schleife gar nicht ausgefuehrt.

$irgendwas != "0"

du wandelst zuerst die Zahl 0 in die Zeichenkette "0" um und laesst dann von != (numerischer vergleich) wieder in die Zahl
0 um? besser da die "" weglassen:

$irgendwas != 0\n\n

<!--EDIT|Strat|1066065277-->