Select Code to Download

 map { whatever } @array;

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

foreach (@array) {
    # add or remove elements in @array...
}