while (my ($n) = $q->fetchrow_array())