#!/usr/bin/env perl use strict; use warnings; use List::MoreUtils qw/ zip /; my @a1 = split('', 'ABCDEFGHIJ'); my @a2 = split('', 'abcde'); no warnings qw/ uninitialized /; print zip @a1, @a2; use warnings; __END__