my @results;
while (@results = $query1->fetchrow_array()) {
   foreach my $r (@row) {
	print "$r\n";
   }
}