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;