Select Code to Download

my @distance_mat=[];
...
my @vit_dist=[ [ 0] ];

${$vit_dist[$i]}[$j]=min(${$vit_dist[$i-1]}[$j]+${$distance_mat[$i]}[$
+j];

${${$distance_mat[$i]}[$j]}[$k]

#!/usr/bin/env perl

...

use Data::Dump;
dd $matrix;

[
  [
...
    [0.0562126863718184, 0.781856824452085],
  ],
]