Output nested array
#!/usr/bin/perl
use warnings;
use strict;
my @outer = (['a1', 'a2', 'a3'], ['b1', 'b2', 'b3'], ['c1', 'c2', 'c3']);
foreach my $outer_el (@outer) {
foreach (@{$outer_el}) {
print "$_\n";
}
print "\n";
}
Related examples in the same category