open (DB, "<keywords.txt") or die $!;
while (<DB> ) {
chomp;
($name, $score, $other) = split /\|/;
#split /|/;
$scores{$name} = $score;
#print "<tr><td valign=top><font face=verdana,arial color=000000>$name </font></td><td valign=top><font face=verdana,arial color=000000>$score</font></td><td>$other</td></tr>\n";
}
close DB;




foreach $word (sort { $scores{$b} <=> $scores{$a} } keys %scores) {
$counter++;
if ($counter > $tlimit) { last;}
if ($scores{$word} >= $targetnumba1)
{
print "<tr><td valign=top><font face=verdana,arial color=RED><b><em>$word</font></em></b></td><td valign=top><font face=verdana,arial color=RED><b><em>$scores{$word}</font></em></b></td><td>$scores{$other}</td></tr>\n";
}
elsif ($scores{$word} >= $targetnumba2)
{
print "<tr><td valign=top><font face=verdana,arial color=YELLOW><b><em>$word</font></em></b></td><td valign=top><font face=verdana,arial color=YELLOW><b><em>$scores{$word}</font></em></b></td><td>$scores{$other}</td></tr>\n";
}
elsif ($scores{$word} >= $targetnumba3)
{
print "<tr><td valign=top><font face=verdana,arial color=BLUE><b><em>$word</font></em></b></td><td valign=top><font face=verdana,arial color=BLUE><b><em>$scores{$word}</font></em></b></td><td>$scores{$other}</td></tr>\n";
}
else {
print "<tr><td valign=top><font face=verdana,arial color=000000>$word </font></td><td valign=top><font face=verdana,arial color=000000>$scores{$word}</font></td><td>$scores{$other}</td></tr>\n";
}
}