while (@a || @b) {print shift @a,shift @b}

##</code><code>##

for(@a){print$_,$b[$0];$0++}