my $ar_data = $dbh->selectall_arrayref(qq (
SELECT noot.Reference, aap.Comparitor, aap.entity_name
FROM (
	SELECT ? AS Comparitor, entity_name
	FROM e_annotation_090812.annotation AS A
	JOIN e_annotation_090812.Temp_table AS T ON A.user = T.Line
	WHERE
		IFNULL(A.entity_name, '') <> ''
		AND A.evidence_code NOT LIKE '%_________8__'
		AND A.centre = ?
) AS aap
JOIN (
	SELECT ? AS Reference, entity_name
	FROM e_annotation_090812.annotation AS B
	JOIN e_annotation_090812.Temp_table AS U ON B.user = U.Line
	WHERE
		IFNULL(B.entity_name, '') <> ''
		AND B.evidence_code NOT LIKE '%_________8__'
		AND B.centre = ?
) AS noot ON aap.entity_name = noot.entity_name
), { Slice => {} }, ".${Comparitor}.", ".${Comparitor}.", ".${Reference}.", ".${Reference}.") or die("Error executing query: " . $dbh->errstr);