Select Code to Download

if (
        $matrix[0][4][0] == 1
...
) {
    # action if TRUE
}

print "it worked" if matrix_ok(\@matrix);

sub matrix_ok {
    my ($matrix) = @_;
...

    return 1;
}

            ...
            for my $k (MIN_DEPTH .. MAX_DEPTH) {
            ...