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