my @extras;
foreach my $x (@foo) {
  push @extras, 'h' if $x eq 'd';
  print $x;
}
push @foo, @extras;
# didn't print 'h'.  But if we add:
print foreach @extras;
# that works ... but duplicates code.