Select Code to Download

use strict;
use warnings;
...
    );

do_something() if all { $_->[0] == $matrix[$_->[1]][$_->[2]][$_->[3]] 
+} @tuples;