$databases{total}{total}{count}++;
}
-our ($keyword,$gct,$hvt,$nct,$t);
+our ($keyword,$gct,$hvt,$nct,$t) = ('Keyword','GeneCards','Harvester','NCBI','Total');
format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<< & @>>>>>>>>>> & @>>>>>>>>>> & @>>>>>>>>>> & @>>>>>>>>>> \\
$keyword, $gct, $hvt, $nct, $t
.
-for$keyword (sort keys %terms) {
+write;
+
+for $keyword (sort keys %terms) {
($gct,$hvt,$nct,$t) =
map {
if (not defined $_) {