Select Code to Download

use warnings;
use strict;
...
if ( all $matrix-> indexND( $ind ) == 1 ) {
    print "it worked\n";
}

use warnings;
use strict;
...
      "mask was: $mask",
      "good matrix was: $good_matrix",
      "and it was not very different from: $some_matrix";

it worked only after 144532 attempts,
mask was: 
...
  [0.6 0.5 0.5 0.9 0.7 0.5 0.6]
 ]
]