tatsache, das ist mir jetzt auch erst einmal entgangen.
vor das @dbrow =  gehört ein my().
also
while (my @dbrow = $sth->fetchrow_array)