my $yy = $test->{'divs'};
foreach my $xx (@$yy) { print $xx."\n";}

##</code><code>##

my $yy = $test->{'divs'};
print ((join "\n", @$yy) . "\n");

##</code><code>##

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