print @array;

##</code><code>##

use strict;

my @a = (qw/a b c/);
my @b = (qw/d e f/);
my @c = (qw/g h i/);
my @d = (\@a, \@b, \@c);

print @{ @d[0] }; #print the first row (a b c)

##</code><code>##

use strict;

my @a = (qw/a b c/);
my @b = (qw/d e f/);
my @c = (qw/g h i/);
my $d = [\@a, \@b, \@c];

print @{ $d->[1] }; # print the second row (d e f)