Kind of a cop-out but the mesh function in List::MoreUtils is a turnkey solution:

http://stackoverflow.com/questions/38345/is-there-an-elegant-zip-to-interleave-two-lists-in-perl-5

my @outies = mesh (@lines1,@lines2, @lines3);
[download]