while (my @faults = subA(@array)) {
  subB(\@array, \@faults);
}