while (my $r = $qeury->fetchrow_hashref()) {