>perl -wMstrict -le
"use List::MoreUtils qw(mesh);
 use Data::Dump;
 ;;
 my @first  = qw(Can unlock secret);
 my @second = qw(you the    code?);
 ;;
 sub interleave_words (\@\@);
 ;;
 my @mixed = interleave_words(@first, @second);
 print qq{Result: '@mixed'};
 ;;
 sub interleave_words (\@\@) {
   die 'array sizes differ' unless $#{$_[0]} == $#{$_[1]};
   goto &mesh;
   }
 ;;
 my @ra = qw(a b c);
 my @rb = qw(1 2  );
 dd [ mesh @ra, @rb ];
"
Result: 'Can you unlock the secret code?'
["a", 1, "b", 2, "c", undef]