use strict;
use warnings;

my @array= qw(data1 data2);

for (1 .. 7){
    push @array, 'ree';
    print "@array\n";
}

##</code><code>##

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

print "@array\n";