#!/usr/bin/perl

print zip('ABCDEFGHIJ', 'abcde') . "\n";

sub zip
{
  my ($str1, $str2) = @_;
  my $zip;
  for (my $i=0; $i<length($str1); $i++)
  {
    $zip .= substr($str1, $i, 1);
    if ($i < length($str2))
    { $zip .= substr($str2, $i, 1) }
    else
    {
      $zip .= substr($str1, $i+1);
      $i = length($str1);
    }
  }
  return $zip;
}