my @array = qw(oranges bannanas apples kiwi);
my @array2 = ();
$array2[0] = \@array;
my @array3 = ();
$array3[0] = \@array2;
# ad nausium ...