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