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