{
  my @children = ( ... );
  sub sub_two { ... }

  foreach my $child (@children) {
    if ($child->(...)) { ... }
    else { ... }
  }
}