#!/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,