while (my @data = $sth->fetchrow_array())