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

##</code><code>##

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

##</code><code>##

print do{ local $" = qq{\n}; qq{@{ $test->{ divs } }\n} };