+ ++$counthash{$_->{classname}};
+ while(my ($type, $notehash) = each %{$_->{seen}})
+ {
+ while(my ($k, $v) = each %$notehash)
+ {
+ $notehash{$_->{classname}}{$type}{$k} += $v;
+ }
+ }
+ }
+ for my $cn(sort keys %counthash)
+ {
+ print STDERR "$counthash{$cn} bots of $cn have played:\n";
+ for my $type(sort keys %{$notehash{$cn}})
+ {
+ for my $note(sort { $a <=> $b } keys %{$notehash{$cn}{$type}})
+ {
+ my $cnt = $notehash{$cn}{$type}{$note};
+ print STDERR " $type $note ($cnt times)\n";
+ }
+ }