{
  my @extras;
  foreach my $x (@foo) {
    push @extras, 'h' if $x eq 'd';
  }
  push @foo, @extras;
}
foreach my $x (@foo)
{
  print $x;
}