foreach (@array, 1) {
    #push @array,'a';#replace following statement with this one
    @array = (@array,'a');
    print;
}
__END__
a
1

##</code><code>##

push @array,'a';
@array = (@array,'a');

##</code><code>##

1 while 1