Mega Code Archive

 

Categories / Perl / Array

 

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"; }