Select Code to Download

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