Select Code to Download

sub makeRatio { 
    my( $d_h ) = @_;
...
    my $columns =  $#{ $d_h->[0] }; ## last index of first row
    my @ratio;

    for my $six ( 0 .. $columns ){
        for my $tre ( 0 .. $rows ){
...
                ## for visual matching
                printf 'my $ratio%d_%d_%d  = $$d_h[%d][%d] / $$d_h[%d]
+[%d];'."\n",

                    1+$six, 1+$tri, 1+$tre,
                    $tri, $six,
...
    return \@ratio ;
}

$tri, $six,
$tre, $six,

$ratio[ $six ][ $tri ][ $tre ] = $$d_h[ $tri ][ $six ] / $$d_h[ $tre ]
+[ $six ] ;

$ratio =  $$d_h[ $tri ][ $six ] / $$d_h[ $tre ][ $six ] ;