sub zip($$){ my( $n, $a, $b ) = ( 1, @_ ); substr( $a, $n, 0, $_), $n += 2 for split '', $b; return $a; };; print zip( 'ABCDEFGHIJ', 'abcde' );; AaBbCcDdEeFGHIJ