Я хочу объединить два массива одинаковой длины в один массив, взяв первый элемент из массива A, первый элемент из массива B; второй элемент из A, второй элемент из B и т. д. Следующая программа иллюстрирует алгоритм:

# file zipper.pl
use strict;
use warnings;
use 5.010;

my @keys   = qw/abel baker charlie dog easy fox/;
my @values = qw/a b c d e f/;

# ==> Is there a builtin function that is equivalent of zipper()? [ $i++ ], $_ } @$v_ref;
}

OutputI»

$ ./zipper.pl 
easy=e
dog=d
fox=f
charlie=c
baker=b
abel=a

мне интересно, если ямы пропустили встроенную функцию в Perl, которая будет делать эквивалент zipper (). Он будет находиться в самом внутреннем цикле программы и должен работать как можно быстрее. Если там'Разве это не встроенный или CPAN модуль, кто-нибудь может улучшить мою реализацию?