>perl -le"@a=qw(a b); for (@a) { push @a, 'c' if /a/; print }"
a
b
c

>perl -le"@a=qw(a b); for (@a,()) { push @a, 'c' if /a/; print }"
a
b