Is there an elegant zip to interleave two lists in Perl 5?

Question

I recently \"needed\" a zip function in Perl 5 (while I was thinking about How do I calculate relative time?), i.e. a function that takes two lists and \"zips\" them togethe

Answer 1

For arrays of the same length:

my @zipped = ( @a, @b )[ map { $_, $_ + @a } ( 0 .. $#a ) ];