@NetWallah: Your solution worked perfectly fine and the way I wanted. Thanks a lot! Much appreciated.

#!/bin/ksh
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}' REPORT1
[download]