eval { my $values_accrued = join "+",@hash{keys %hash};print "[$values_accrued]\n"; } #Actually the join with the "+" character with an eval on it accrues the values