Select Code to Download

for(my $i=1; $i<=$x; ++$i){
        for(my $j=0; $j<$y; ++$j){
...
                }   
        }   
}

use strict;
use warnings;
...
}

print Dumper $distance_mat;

$VAR1 = [
          [
...
          ]
        ];

for my $i (0..$max_val)