>>621
if($array[$i][$j] == (-1))

http://perldoc.jp/docs/perl/5.12.1/perllol.pod