@sorted = map {$_->[0]}
          map {
             $i=0; sort {$b->[1]<=>$a->[1]} map {[$i++,$_]} splice (@sim,0,9)
          } 0..8;

print "\@index_ordered =(\n";
for(0..8) {
    print " " x 4, join(', ', splice (@sorted,0,9) ),"\n";
}
print ");\n";