sub is_ok
{
        $_[0][0] != $_[1][0] &&
        $_[0][0] != $_[1][1] &&
        $_[0][0] != $_[1][2] &&
        $_[0][1] != $_[1][0] &&
        $_[0][1] != $_[1][1] &&
        $_[0][1] != $_[1][2] &&
        $_[0][2] != $_[1][0] &&
        $_[0][2] != $_[1][1] &&
        $_[0][2] != $_[1][2];
}