no warnings qw/ uninitialized /;

print zip @a1, @a2;

use warnings;

##</code><code>##

print grep { defined } zip @a1, @a2;