http://www.perlmonks.org?node_id=1041083


in reply to Merging arrays

If you don't mind consuming them: 

while( @input1 and @input2)
{
  push @output, {(shift @input1), (shift @input2)};
}

[download]

In Section Seekers of Perl Wisdom