use strict;
use warnings;
use List::MoreUtils qw{ mesh };

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

my @mixed  = mesh @first, @second;
print "Result: @mixed\n";