while () { $a1 = push(@a1, $1); $a2 = push(@a2, $2); print @a1, @a2; }