Select Code to Download

use strict;
use warnings;
...
push @to_test, $matrix[ $_->[0] ][ $_->[1] ][ $_->[2] ] for @indices;

print "It worked\n" if all { $_ == 1 } @to_test;