Re^2: How to divide the value of a hash key by the value of another hash key (when the keys are equivalent)?

The initHash subroutine initializes all possible keys and sets the values to 0 to begin with though, I understand your change but I don't see how it's necessary?

sub initHash {  #init the all to all hash
    ##first argument is the hash of data, and the second is a referenc
+e to all the columns
    my ($refHash, $refArr) = @_;
    foreach my $ele1(@$refArr){
        foreach my $ele2(@$refArr){
            my $key = $ele1 . "." . $ele2;

            if (exists $$refHash{$key}){
                print STDERR "This key existed in your array of names,
+ skipping\n";
                next;
            }
            else{
                $$refHash{$key} = 0;
            }
        }
    }
}
[download]

Comment on Re^2: How to divide the value of a hash key by the value of another hash key (when the keys are equivalent)? Download Code