perl -le '@a=qw/a a/; map{push @a,"A"; print "@a"} @a'
# prints:
a a A
a a A A

perl -le '@a=qw/a a/; map{@a=(); print "@a"} @a'
# prints two blank lines