open (DB,"logfile.log") or die("There was a problem opening the file.");
while ($entry=<DB>) {
@fields=split(/\t/,$entry);
chomp @fields; 

print <<ENDHTML;

<li><a href="#$fields[0]">$fields[0] ( $fields[1] )</a></li>

ENDHTML
}
close DB;