foreach my $name (sort keys %seen) {
  printf "%-6s: %-2d\n", $name, $seen{$name};
}