perl -ne "$h{$c=$1}=0 if m/^([\w\s]+pool)$/;m/^\d{6}\s+\w{4}/ and $h{$c}++;END{print qq|$_\t$h{$_}\n| for sort keys %h}" FILENAME