Select Code to Download

use strict;
use warnings;
...
    push @array, 'ree';
    print "@array\n";
}

my @array= (qw(data1 data2), ('ree') x 7);

print "@array\n";