use warnings;
use strict;
use feature qw(say);

sub zip;

say zip 'ABCDEFGHIJ', 'abcde';

sub zip {
    join "", sort { lc $a cmp lc $b} split "", $_[0] . $_[1];
}

##</code><code>##

23:44 >perl 1303_SoPW.pl
AaBbCcDdEeFGHIJ

23:45 >