G'day Perlseeker_1,

As already stated by others, there's a disconnect between your title, code and output.

The following produces the output you seem to want based on the data you posted. Perhaps replacing my <DATA> with your <$handle> will achieve the result you're after.

#!/usr/bin/env perl -l

use strict;
use warnings;

my %result;
++$result{join ' --> ' => (split /,/)[1,4]} while <DATA>;
print "$_ --> $result{$_}" for sort keys %result;

__DATA__
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,
[download]

Output:

AB1 --> T1 --> 2
AB1 --> T2 --> 2
AB2 --> T1 --> 2
AB2 --> T2 --> 2
AB3 --> T1 --> 2
AB3 --> T2 --> 2
AB4 --> T1 --> 2
AB4 --> T2 --> 2
[download]