Finally! One of the things that format does naturally better than anything else in Perl!

my @array = qw(one two);
my @array2 = qw(three four five);
my @array3 = qw (six seven);

format STDOUT =
@<<<<<<<<< @<<<<<<<<< @<<<<<<<<< ~~
shift(@array), shift(@array2), shift(@array3)
.
write STDOUT;
[download]

{grin}

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.