If you create an AoA, then you can print it by doing something like this...

#!/usr/bin/perl

use strict;

my @mainarr;
my @arr1=qw(a b c d e);
my @arr2=qw(f g h i j);
my @arr3=qw(k l m n o);

push (@mainarr, [@arr1], [@arr2], [@arr3]);
print @{$mainarr[1]};
[download]