#! perl -slw
use strict;

local $, = ' | ';

sub zip (&\@\@) {
	map {
		$_[ 0 ]->( $_[ 1 ][ $_ ], $_[ 2 ][ $_ ] ) 
	} 0 .. ( 
		@{$_[ 1 ]} < @{$_[ 2 ]} 
		? $#{ $_[ 1 ] } 
		: $#{ $_[ 2 ] } 
      );
}

my @a = 'a' .. 'z';
my @n = 1 .. 10;

print zip{ "@_" } @a, @n;

print zip{ $_[ 0 ] .= $_[ 1 ] } @a, @n;
print zip{ $_[ 0 ] .= $_[ 1 ] } @a, @n;

__END__
[ 1:37:32.71] P:\test>406231
a 1 | b 2 | c 3 | d 4 | e 5 | f 6 | g 7 | h 8 | i 9 | j 10
a1 | b2 | c3 | d4 | e5 | f6 | g7 | h8 | i9 | j10
a11 | b22 | c33 | d44 | e55 | f66 | g77 | h88 | i99 | j1010