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