Я недавно "нуждался" в zip-функции в Perl 5 (пока я думал о Как рассчитать относительное время?), то есть функцию, которая принимает два списка и "застегивает" их вместе в один список, перемежая элементы.
Пример(псевдо):
@a=(1, 2, 3);
@b=('apple', 'orange', 'grape');
zip @a, @b; # (1, 'apple', 2, 'orange', 3, 'grape');
Haskell имеет zip в прелюдии и Perl 6 имеет zip operator, но как вы это сделаете элегантным способом в Perl 5?