@sorted = map  { $_->[0] }
              sort { $a->[1] <=> $b->[1] }
              map  { [ $_, (split /[,.]/, $_)[$idx] ] } @array;