#!/usr/bin/perl
use strict;
use warnings;
use 5.014;

my %data;
while (<DATA>) {
    chomp;
    my ($v, $k) = split /,/;
    $data{ $k } += $v;
}

print "$data{$_},$_\n" for sort keys %data;

__DATA__
1208782,abc
406744,def
367455,abc
283191,mps
226159,abc
197688,rxwz
137875,rxwz
115901,abc
107297,def
99213,mps