Select Code to Download

use Data::Dumper;

...

unshift @array2, undef for @array1;
print Dumper( \@array2 );

$VAR1 = [
          undef,
...
          undef,
          '4'
        ];