Select Code to Download

my $ar_data = $dbh->selectall_arrayref(qq (
SELECT noot.Reference, aap.Comparitor, aap.entity_name
...
        AND B.centre = ?
) AS noot ON aap.entity_name = noot.entity_name
), { Slice => {} }, ".${Comparitor}.", ".${Comparitor}.", ".${Referenc
+e}.", ".${Reference}.") or die("Error executing query: " . $dbh->errs
+tr);