my %count;
while(<DATA>) {
    chomp;
    tr/,/\t/;
    $count{$_}++;
}
foreach(sort keys %count) {
    print "$count{$_}\t$_\n";
}

__DATA__
abcd,US
abee,UK
abcd,US
adee,US