next if @flds[9..13] eq "";
        if (defined (@flds[9..13])) {
        print "$flds[13]L\n";
        &add_sub ();
        print "</tr>\n";
        }