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];
}

__END__