Select Code to Download

print @array;

use strict;

...
my @d = (\@a, \@b, \@c);

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

use strict;

...
my $d = [\@a, \@b, \@c];

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