while (subA(@array)) {
  subB(@array);
}

##</code><code>##

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