# A little something to get the plurality correct
for ( keys %keyhash ) {
  my $num = @{$keyhash{$_}{MANY}};
  printf "%s appeared %d %s\n",
	$_,
	$num,
	$num > 1 ? "times" : "time";
}