Select Code to Download

use strict;
my @array = qw/ ***1*** first second ***end1*** ***2*** third fourth *
+**end2*** /;
...

use Data::Dumper;
print Dumper \@new_array;

$VAR1 = [
          [
...
            'fourth'
          ]
        ];