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