You can use splice. Here is an example:

use Modern::Perl;

my @nums = qw( 1 2 3 4 5 6 );
say @nums;

splice( @nums, 3, 0, "combo breaker" );
say @nums;
[download]

Output:

123456
123combo breaker456
[download]