01,AB1,CDEF,CHINA,T1,
02,AB2,CDEF,CHINA,T1,
03,AB1,CDEF,JAPAN,T2,
04,AB2,CDEF,JAPAN,T2,
05,AB3,CDEF,JAPAN,T2,
06,AB4,CDEF,JAPAN,T2,
07,AB3,CDEF,CHINA,T1,
08,AB4,CDEF,CHINA,T1,
09,AB1,CDEF,CHINA,T1,
10,AB2,CDEF,CHINA,T1,
11,AB1,CDEF,JAPAN,T2,
12,AB2,CDEF,JAPAN,T2,
13,AB3,CDEF,JAPAN,T2,
14,AB4,CDEF,JAPAN,T2,
15,AB3,CDEF,CHINA,T1,
16,AB4,CDEF,CHINA,T1,

##</code><code>##

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

##</code><code>##

$VAR1 = 'T1';
$VAR2 = 8;
$VAR3 = '';
$VAR4 = 2;
$VAR5 = 'T2';
$VAR6 = 8;

##</code><code>##

AB1 --> T1 --> 2 
AB2 --> T1 --> 2
AB1 --> T2 --> 2
AB2 --> T2 --> 2
AB3 --> T2 --> 2
AB4 --> T2 --> 2
AB3 --> T1 --> 2
AB4 --> T1 --> 2