@a = map {$_->[0]} sort {$a->[1] <=> $b->[1] || $a->[2] <=> $b->[2]} map {[$_, split /x/]} @a; [download]
Cheers,
JohnGG
In reply to Re: how to sort this? by johngg in thread how to sort this? by sen