Select Code to Download

use strict;
use Data::Dumper;

...

print Dumper(\@array, \@defined_array);

$VAR1 = [
          'A',
          'b',
...
          'THE END',
          'The Real End'
        ];