@x = map { $_->[0] }
    sort {
            $a->[1] =~ s/([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
            $b->[1]=~ s/([a-fA-F0-9]{2})/pack("C", hex($1))/eg;

            $a->[1] cmp $b->[1];
        }
    map {[$_, split /\|/]} @array;