foreach my $xx (@{$test->{divs}}) { print $xx."\n";}
print ((join "\n", @{$test->{divs}}) . "\n");