my @array = ( 'foo', 'moo', 'baz' );

splice @array, 1, 1, 'bar';