Select Code to Download

use strict;
use warnings;
...

push @{$arr[0][2][0]}, 3;
Dump \@arr;

$ARRAY1 = [
            [
...
              7777
            ]
          ];