$ perl -Mstrict -Mwarnings -le '
    my (@vit_dist, @distance_mat);
    $vit_dist[0][0] = 30;
    $distance_mat[1][0] = 12;
    my ($i, $j) = (1, 0);

    print ${$vit_dist[$i-1]}[$j]+${$distance_mat[$i]}[$j];
'
42

##</code><code>##

min(${$vit_dist[$i-1]}[$j], ${$distance_mat[$i]}[$j])