use strict;
use warnings;

my @array = ('a');

for (@array) {
    #push @array,'a'; #alternative 1
    @array = (@array, 'a'); #alternative 2
    print "@array\n";
    sleep(1); # so we can absorb what's happening
}