use strict;
use warnings;

my @array = ([-1, 0, 1], [1, -1, 0], [0, 1, -1]);
my ($i, $j) = (1, 1);

print "OK" if($array[$i][$j] == (-1));