Cela est provoqué par $src_id étant passé dedans explicitement sans interpolation parce que le SQL est enfermé dans des apostrophes. Si vous changez en un du ci-dessous, il devrait fonctionner (ou donner au moins une erreur différente).
$dbh->do (« suppression de pfnd.funding_journal_vw FJ où fj.SRC_ID = \ « $src_id \ "") ;
$dbh->do (« suppression de pfnd.funding_journal_vw FJ où fj.SRC_ID = « $src_id » ") ;