Seems to me that there is a $dbh->disconnect missing, so either add the disconnect inside the loop, or do what gellyfish says, and then add a disconnect outside the loop.