my @array=('data1','data2');
my @array1=('data1','data2');
my ($i,$k);

$i=7;
$k=7;

while($i){
    $array [++$#array] = 'ree';
    $i--;
    print "@array";
}

while($k){
    push(@array1,'ree');
    $k--;
    print "@array1";
}