Select Code to Download

01,AB1,CDEF,CHINA,T1,
02,AB2,CDEF,CHINA,T1,
...
14,AB4,CDEF,JAPAN,T2,
15,AB3,CDEF,CHINA,T1,
16,AB4,CDEF,CHINA,T1,

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

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

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