sub main_loop {
  local($dbh->{AutoCommit}) = 0;
  ... lots of code here, with multiple returns
}