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