my @sort = map { $_->[0] }
                sort { $a->[1] cmp $b->[1] || $a->[6] <=> $b->[6] }
                map { [$_, split / /,$_ ] } @array;