my @x = ( [qw(a b c)], [qw(d e f)], [qw(g h i)]);
my $row = 1; # print this row
foreach my $col (0..$#{$x[$row]} )
{
    print "$x[$row][$col]\n";
}