#!/usr/bin/perl
use strict;
use warnings;

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

splice @first, @second, 0, pop @second while @second;

print "@first";