Select Code to Download

OUTER_LOOP:
  foreach my $val (@vals) {
    @flds = something to do with $val;
...
    &add_sub ():
    print "</tr>\n";
  }

  foreach my $val (@vals) {
    @flds = something to do with $val;
    my $go_ahead;
...
      print "</tr>\n";
    }
  }