# 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";
}