my $i;

for ($i = 0; $i < @array; ++$i) {
    my $row = $array[$i];
    my $j;

    for ($j = 0; $j < @$row; ++$j) {
        last if $row->[$j];
    }

    last if $j == @$row;
}

print "All zero row at $i\n" if $i != @array;