@foo = map { 'd' eq $_ ? ($_,'h') : $_ } @foo;
  # puts 'h' right after 'd'