my @idx = sort { $matrix[0][$a] cmp $matrix[0][$b] } 0..$#{$matrix[0]};
my @effets_ord = map { $matrix[2][$_] } @idx;