while (@list) 
        {
            my @row = splice(@list, 0, 4);
            format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<
@row
.
write;
        }