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)