my $sth = $dbh->prepare(qq{SELECT val1 FROM tb11 WHERE x=?})
foreach my $id (@id){
	$sth->execute($id) or die $dbh->errstr;
	$sth->bind_columns(\my $val1);
	while ($sth->fetch) {
		push @ary, $val1;
	}
}