perl -F"," -lanE "$h{join ',',@F[0,1]}+=$F[2]}{map{say $_.','.$h{$_}}sort keys %h"  sample.csv

3211111,100,4.4
3211112,100,2.5
3211112,101,3.2
3211113,100,5.2