sub somesub {
  no warnings 'redefine';
  local *ABC::xyz = sub {1};
  # several more
  # ....
}