gunzip -c $file|cut -f3,4 -d'|' |sort|uniq -c

##</code><code>##

 2
11 CHECK|KCEHC

##</code><code>##

ABC|123|CHECK|KCEHC|
DEF|456|CHECK|KCEHC|
GHI|789|CHECK|KCEHC|
JKL|101|CHECK|KCEHC|
ABC|123|CHECK|KCEHC|
DEF|456|CHECK|KCEHC|
GHI|789|CHECK|KCEHC|
JKL|101|CHECK|KCEHC|
ABC|123|CHECK|KCEHC|
DEF|456|CHECK|KCEHC|
GHI|789|CHECK|KCEHC|

##</code><code>##

$fh = IO::Zlib->new( "$file", 'rb' ) or die "Zlib failed: $!";
$count{$_}++ for map { ( split /\|/ )[3,4] } <$fh>;
print Dumper(%count);

##</code><code>##

$VAR1 = '';
$VAR2 = 1;
$VAR3 = 'CHECK';
$VAR4 = 11;
$VAR5 = 'KCEHC';
$VAR6 = 11;
$VAR7 = '';

##</code><code>##

CHECK|KCEHC 11