while (<LOOPFILE>) {
	  $linenumber ++; 
	  
	   @lineItems = split (/\t/);
	    #...
	  	print OUTFILE "<BR><B>$lineItems[0]</b> ($lineItems[1])\n";
	    #....
	  
}
        require "footer.pl";
        close (LOOPFILE);