perl -anF/[\\s,]+/ -e '$tot{$F[0]}+=$F[1]}{print qq|$tot{$_}\t$_\n| for sort keys %tot' <YOUR-FILE-NAME>