$i=0;
$index=@netids;
print "<TABLE>";

foreach $id(@netids){
	print"<td>";
	print "<pre>";
	PRINT_INFO ($id,$nums[$i],$sects[$i]);
	print "</pre>";
		$i++;	
}

##</code><code>##

print "PRINT_INFO ($id,$nums[$i],$sects[$i])";

##</code><code>##

PRINT_INFO (2515,0040,1)
PRINT_INFO (9479,0040,2)
PRINT_INFO (2529,5228,1)
PRINT_INFO (9198,5228,2)
PRINT_INFO (9399,5458,1)
PRINT_INFO (12344,0473,3)
PRINT_INFO (14119,5335,1)
PRINT_INFO (14120,5335,2)
PRINT_INFO (14248,0267,3)
PRINT_INFO (19341,0314,1)
PRINT_INFO (19343,0314,3)
PRINT_INFO (19332,5268,1)
PRINT_INFO (19333,5268,2)

##</code><code>##

my ($netid, $sitename, $sector) = @_;