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

print $array2[0][0];