Select Code to Download

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

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

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