Select Code to Download

use strict;
use warnings;
...
unshift @arrA, [1];

print Data::Dumper->Dump([\@arrA], [q{*arrA}]);

@arrA = (
          1,
...
            2
          ]
        );