@a = sort { my ($a1, $a2) = split(/x/, $a);
            my ($b1, $b2) = split(/x/, $b);
            $a1 <=> $b1 || $a2 <=> $b2      } @a;