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