Select Code to Download

perl -F"," -lanE "$h{join ',',@F[0,1]}+=$F[2]}{map{say $_.','.$h{$_}}s
+ort keys %h"  sample.csv
...
3211112,101,3.2
3211113,100,5.2

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

...
}
-e syntax OK

perl -MO=Deparse -e 1
'???';
...
}
-e syntax OK