use strict;
use warnings;

my @array= qw(data1 data2);

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