Create an array of SQL statements @stmts, e.g. by spliting a string or file on /;\n/, then change the eval to:

eval {
    for(@stmts) {
        my $sth = $dbh->prepare($_);
        $sth->execute;
    }
};
[download]

Then rollback or commit as you already do.