use List::MoreUtils qw( mesh );
my @first  = qw( Can unlock secret );
my @second = qw( you the code? );
my @newArray = mesh @first, @second;
[download]

List::MoreUtils

Update: Fixed code to adjust to mesh's unusual prototype.