Isso é causado por $src_id que está sendo passado dentro explicitamente sem interpolação porque o sql é encerrado em únicas citações. Se você muda a um do below, deve trabalhar (ou pelo menos para dar um erro diferente).
$dbh->do (“supressão de pfnd.funding_journal_vw FJ onde fj.SRC_ID = \ “$src_id \ "");
$dbh->do (“supressão de pfnd.funding_journal_vw FJ onde fj.SRC_ID = “$src_id” ");