#! /usr/bin/perl


%CC_MAP = ();

while(<>){
    ($CC) = /^(\S+)/;
    $CC_MAP{$CC}++;
}

foreach $key (keys %CC_MAP){
    print "$key $CC_MAP{$key}\n";
}