use strict;
use warnings;

my @first = qw(Can unlock secret);
my @second = qw(you the code?);

splice(@first, $_+1, 0, $second[$_])
    for reverse 0..$#second;

print "@first\n";