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)