use List::MoreUtils qw( zip );

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

my @mixed = zip @first, @second;

print "@mixed\n";