Hello 1nickt,

As a cleaner alternative to:

no warnings qw/ uninitialized /;

print zip @a1, @a2;

use warnings;
[download]

you can just filter the list returned by zip:

print grep { defined } zip @a1, @a2;
[download]

Hope that helps,