Select Code to Download

use List::MoreUtils qw( zip );

...
my @mixed = zip @first, @second;

print "@mixed\n";