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

##</code><code>##

$array3[0] = [['oranges','bannanas','apples','kiwi']];

# and multiple ones like this
$array3[0] = [['oranges','bannanas'],['apples','kiwi']];