my @array = 'a' .. 'x';

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