no warnings qw/ uninitialized /;

print zip @a1, @a2;

use warnings;