>perl -le"@a = qw( a b c d ); @b = grep { push(@a,'!') if !$i++; 1 } @a; print @b"
abcd

##</code><code>##

>perl -le"@a = qw( a b c d ); for (@a) { push(@a,'!') if !$i++; push @b, $_ } print @b"
abcd!