Select Code to Download

@sorted = map {$_->[0]}
          map {
...
    print " " x 4, join(', ', splice (@sorted,0,9) ),"\n";
}
print ");\n";

@index_ordered =(
    0, 1, 3, 2, 4, 5, 7, 8, 6
...
    7, 6, 8, 3, 4, 0, 1, 5, 2
    8, 7, 6, 3, 4, 1, 2, 0, 5
);