sub main_routine {
    local @private::keep::out::data = load_huge_array();
    child_sub1();
    child_sub2();
  }

  sub child_sub1 {
    for ( @private::keep::out::data ) {
      ...
    }
  }