Re: Custom Sort An AoA

[Corion]

The general trick is to append your additional sort criteria to the sort block.

@list= sort {    @$a <=> @$b
              || ... secondary criterion ...
              || ... tertiary criterion ... 
            } @list;

So all that remains is to find the appropriate expression to find and compare the last elements of each array:

$a->[-1] cmp $b->[-1] # untested

Taken together, your sort expression would be

@list= sort {    @$a <=> @$b
              || $a->[-1] cmp $b->[-1]
            } @list;

[Limbic~Region]

Corion,
I must not have done a good job of explaining.

Start at the last element and if they are equivalent then check the next to the last and if they are equivalent check the next to the next to the last....

Your solution fails to produce the correct output because you are only comparing the last element.