eval {
                 my $values_accrued = join "+",@hash{keys %hash};print "[$values_accrued]\n";
                }