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