my $i;
print "<table>\n";

for ($i=0; $i<=$#netids; $i++){
    print " <tr>\n  <td>\n   <pre>\n";
    PRINT_INFO ($netids[$i],$nums[$i],$sects[$i]);
    print " </tr>\n  </td>\n   </pre>\n";
}

print "</table>\n";