my %counts;
while ( my $entity = ... )  {
   ++$counts{ $entity };
}

for my $entity ( sort keys( %counts ) ) {
   say "$entity $counts{ $entity }";
}