=begin  BlockComment  # BlockCommentNo_1

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


=end    BlockComment  # BlockCommentNo_1

=cut

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