Select Code to Download

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

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

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