Select Code to Download

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

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