in reply to natural sort on array of arrays

Perhaps I'm missing something, but does the output below using the code changes do what you need?

my @sorted_matrix;

{
    no warnings 'numeric';
    @sorted_matrix = sort {$a->[0] <=> $b->[0]} @matrix;
}

__END__
0 0 -> A1a1
0 1 -> img1
0 2 -> x123
0 3 -> y123

1 0 -> A1a12
1 1 -> img3
1 2 -> x456
1 3 -> y789

2 0 -> A10a1
2 1 -> img4
2 2 -> x456
2 3 -> y123

3 0 -> A12a1
3 1 -> img5
3 2 -> x456
3 3 -> y456

[download]

Replies are listed 'Best First'.
Re^2: natural sort on array of arrays
by duelafn (Parson) on May 10, 2016 at 17:07 UTC

    The test data the OP has doesn't reveal the difficulty well. A better test (I've gotten rid of the extra array parts to focus on the sorting) is:

    use 5.010;
my @items = qw/ A1a1 A1a12 A1a2 A10a1 A12a1 /;
say join " ", sort { $a <=> $b } @items;

# prints: A1a1 A1a12 A1a2 A10a1 A12a1
#                ^- :( -^

    [download]

    Good Day,
        Dean

[reply]
[d/l]

In Section Seekers of Perl Wisdom