#!/usr/bin/perl

use strict;


my $MTX = [
[4,-1,-2,-2, 0,-1],
[-1,5, 0, 2,-3, 1],
[-2,0, 6, 1,-3, 5],
[-2,2, 1, 7,-3, 0],
[0,-3,-3,-3, 8,-3],
[-1,1, 5, 0,-3, 9],
];

for (my $i =0; $i<6; $i++){
   for(my $j = 0; $j< 6; $j++){
      for(my $k = 0; $k< 6; $k++){
         my $sc = ($MTX->[$i]->[$i] + $MTX->[$j]->[$j] + $MTX->[$k]->[$k]);
         if ($sc < 17){
            next;
         }else{
            for (my $ii =0; $ii<6; $ii++){
               for(my $jj = 0; $jj< 6; $jj++){
                  for(my $kk = 0; $kk< 6; $kk++){
                     my $score = ($MTX->[$i]->[$ii] + $MTX->[$j]->[$jj] + $MTX->[$k]->[$kk]);
                     if($score > 17){
                        print " $i,$j,$k -> $ii,$jj,$kk = $score\n";
                     }
                  }
               }
            }
         }
      }
   }
}