I figure that the basic sort algorithm just got a lot smarter and reduced the number of comparisons.
AFAIK, the latest significant change in sorting happened in 5.6.0, when Perl changed to using mergesort by default, instead of quicksort (and introduced a pragma to switch). Also, when quicksort is being used, and the array is larger than a certain treshold, the array is shuffled first. Before, it was rather easy to generate an input that took quadratic time to sort (for instance, a list of the form 1 .. $N, reverse(1 .. $N) took quadratic time).

The mergesort that has been implemented is pretty nifty, in the sense that it takes advantage of (reverse) sorted sublists. This makes it fast on almost sorted lists (the Achilles heel of traditional quicksort). It's also stable.

However, all this happened a decade ago.

These various techniques like "Schwartzian Transform" are still applicable and they still improve performance when doing very large sorts.
Yes, and in almost all cases, a GRT is faster than an ST. However, considering the number of chapters/subchapters/subsubchapters in a book, I doubt the difference is really going to matter.

Since the sort is stable, there's an alternative way of sorting the data: 

@data = map {join "-", @$_}
        sort {$a->[0] <=> $b->[0]}
        sort {$a->[1] <=> $b->[1]}
        sort {$a->[2] <=> $b->[2]}
        map {[split /-/]} @data;

[download]
You won't be able to do that with Perl's quicksort implementation.

Here's another way to sort the given data. It uses neither mergesort, nor quicksort: 

my @d = map {[split /-/]} @data;
foreach my $i (reverse (0 .. 2)) {
    my @t;
    push @{$t[$$_[$i]]}, $_ for @d;
    @d = map {@{$_ || []}} @t;
}
@data = map {join "-", @$_} @d;

[download]

In reply to Re^4: Custom sort with string of numbers by JavaFan
in thread Custom sort with string of numbers by linuxfan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.