Select Code to Download

use strict;
use Data::Dumper;
...
push @{$array[0]},[0,1,2];

print Dumper @array;

$VAR1 = [
          [
...
          ]
        ];