map { whatever } @array;

##</code><code>##

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


##</code><code>##

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