# read subplot ANOVA results
my ($subplot_ERROR, $subplot_BLOCK) = &read_subplot_anova_stats($subplot_anova_file);
############################################################################
##my $hash_ref = mysub();
while (my ($k, $v) = each(%$subplot_ERROR)) {
    print "error:$k = $v\n";
}

##</code><code>##

error:2019/Preston/W1 = HASH(0x3759530)
error:2019/Preston/V2 = HASH(0x36378e0)
error:2019/Preston/W3 = HASH(0x3640140)
error:2019/Preston/V1 = HASH(0x3642ca8)
error:2019/Preston/W2 = HASH(0x3637850)
error:2019/Preston/STD = HASH(0x363fde0)
error:2019/Preston/V3 = HASH(0x3764478)
Block:2019/Preston/V1 = HASH(0x3637ec8)
Block:2019/Preston/W2 = HASH(0x3643218)
Block:2019/Preston/V3 = HASH(0x37565a8)
Block:2019/Preston/STD = HASH(0x3642c90)
Block:2019/Preston/W1 = HASH(0x3631b38)
Block:2019/Preston/V2 = HASH(0x3626c80)
Block:2019/Preston/W3 = HASH(0x375b610)