sql statement in array oder variable speichern

($projekt_name) = $dbh->selectrow_array(qq{
SELECT projekt
FROM mc_rd3_projekt
WHERE pid = $data{vorhandprojekte}
})WebCenter::error($DBI::err, undef, undef, $dbh);

$dbh->commit;

und wie muss man sich das ganze anzeigen lassen.