perl -e 'use strict; use warnings; my $a="ABCDE"; my $b="xyz"; my $result=""; my $i; for ($i=0; $i<length($b); $i++) { $result .= substr($a, $i, 1) . substr($b, $i, 1) }; $result .= substr($a, $i); print "$result\n";'

##</code><code>##

use strict;
use warnings;

sub zip {
  my ($a, $b) = @_;
  my $result = "";

  my $max = ( length($a) > length($b) ) ? length($a) : length($b);

  my $i;
  for ($i = 0; $i < $max; $i++) {
    if ($i < length($a)) { $result .= substr($a, $i, 1); }
    if ($i < length($b)) { $result .= substr($b, $i, 1); }
  }
  print "$result\n";
}

zip("XYZZY", "ABC");
zip("ABC",   "XYZZY");
zip("XYZZY", "XYZZY");
zip("", "");

. . .

XAYBZCZY
AXBYCZZY
XXYYZZZZYY