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