Select Code to Download

no warnings qw/ uninitialized /;

print zip @a1, @a2;

use warnings;

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