http://www.perlmonks.org?node_id=539176


in reply to how to sort this?

An alternative for those who like Schwartzian Transforms.

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

[download]

Cheers,

JohnGG

In Section Seekers of Perl Wisdom