--- a/parse_rubi.pl	Mon Jan 17 21:14:24 2011 +0200
+++ b/parse_rubi.pl	Mon Jan 17 21:14:36 2011 +0200
@@ -122,7 +122,9 @@
 }
 
 print "\n\n=====================================================================\n\n";
-print "-------- Sorted by results --------\nOnly matches or near-matches shown!\n\n";
+print "-------- Sorted by results --------\n".
+"Only matches or near-matches shown!\n".
+"\n";
 
 foreach my $i (keys %data) {
   $data{$i}{"sort"} = join(", ", sort @{$data{$i}{"results"}});
@@ -151,7 +153,9 @@
 }
 
 print "\n\n=====================================================================\n\n";
-print "-------- Sorted by name --------\n\n";
+print "-------- Sorted by name --------\n".
+"Total of ".(scalar(keys %data))." unique items (organs of given race, items, etc).\n".
+"\n";
 
 foreach my $i (sort { $data{$a}{"name"} cmp $data{$b}{"name"} } keys %data) {
   my $res = join(", ", sort @{$data{$i}{"results"}});
@@ -159,7 +163,6 @@
 }
 
 print "\n\n=====================================================================\n\n";
-print "-------- Sorted by race --------\nOnly data with known race shown!\n\n";
 
 my %byrace = ();
 foreach my $i (keys %data) {
@@ -168,6 +171,12 @@
   }
 }
 
+print "-------- Sorted by race --------\n".
+"Only data with known race shown!\n".
+"Total of ".(scalar(keys %byrace))." races.\n".
+"\n";
+
+
 foreach my $i (sort { $a cmp $b } keys %byrace) {
   foreach my $o (sort { $a cmp $b } keys %{$byrace{$i}}) {
     my $res = join(", ", sort @{$byrace{$i}{$o}});