Try this instead

#!/usr/bin/perl --
use strict;
use warnings;
my @array=('data1','data2');
my @array1=('data1','data2');
my ($i,$k);

$i=7;
$k=7;

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

while($k){
    push(@array1,'ree');
    $k--;
    print "@array1\n";
}
 
__END__
[download]