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