>>660
グループと名前をキーにしたハシュにしてみては？

foreach (@List){
$_ = [split /,/];
$hash{sprintf qq|%s,%s|, $_->[0,1]} .= sprintf qq|,%s,%d|, $_->[2,3];
}

foreach (sort keys %hash){
push @List_new, $_ . $hash{$_};
}
みたいな。