Select Code to Download

  DB<1> @x = ( [qw(a b c)], [qw(d e f)], [qw(g h i)])

...
   1  'h'
   2  'i'
  DB<3>

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

d
e
f