while (my @row = $sth->fetchrow_array()) {
    ...
}