#!/usr/bin/env perl -l

use strict;
use warnings;

print zip("ABCDEFGHIJ", "abcde");

sub zip {
    my ($str1, $str2) = @_;

    for (0 .. length $str2) {
        substr $str1, $_ * 2 + 1, 0, substr $str2, $_, 1;
    }

    return $str1;
}

##</code><code>##

AaBbCcDdEeFGHIJ