use Modern::Perl;

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

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