Help for this page

Select Code to Download

Select or download this

sub makeRatio { 
    my( $d_h ) = @_;
    my $rows    =  $#$d_h ; ## last index of array
...
    }
    return \@ratio ;
}