eval {
     #table A
     foreach line (...) {
           prepare, execute
     }
    
     #table B
     prepare, execute 
}
if ( $@ ) {
    rollback
}
else {
    commit;
}