while (( my $id1, my $text) = $sqlquery3->fetchrow_array) 
	{	$text = '' if not defined $text;
		push @list3, "$id1\t$text\n";
	}