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


##</code><code>##

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


BEGIN { $/ = "\n"; $\ = "\n"; }
BEGIN {
    $^H{'feature_unicode'} = q(1);
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    our(@F) = split(/,/, $_, 0);
    $h{join ',', @F[0, 1]} += $F[2];
}
{
    map {say $_ . ',' . $h{$_};} sort(keys %h);
}
-e syntax OK


##</code><code>##

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

perl -MO=Deparse -n -e 1
LINE: while (defined($_ = <ARGV>)) {
    '???';
}
-e syntax OK

perl -MO=Deparse -n -a -e 1
LINE: while (defined($_ = <ARGV>)) {
    our(@F) = split(' ', $_, 0);
    '???';
}
-e syntax OK

perl -MO=Deparse -n -a -F"," -e 1
LINE: while (defined($_ = <ARGV>)) {
    our(@F) = split(/,/, $_, 0);
    '???';
}
-e syntax OK

perl -MO=Deparse -n -a -F"," -l -e 1
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    our(@F) = split(/,/, $_, 0);
    '???';
}
-e syntax OK

perl -MO=Deparse -n -a -F"," -l -E 1
BEGIN { $/ = "\n"; $\ = "\n"; }
BEGIN {
    $^H{'feature_unicode'} = q(1);
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    our(@F) = split(/,/, $_, 0);
    '???';
}
-e syntax OK