1 #!/usr/bin/perl
 2
 3 #@a[0] = (["1", "2", "3"]);
 4 #@a[1] = (["4", "5", "6"]);
 5 @a = ( [1,2,3], [4,5,6] );
 6
 7 foreach my $b (@a) {
 8     foreach my $c (@$b) {
 9         print "$c\n";
10         }
11     }
12
13 foreach ( @a ){ print "( @$_ )\n"; }
14