#! /usr/bin/perl -w

use strict;

my @arr = ('a'..'z');
my $nr = shift || 6;

local $, = ' ';
while( scalar @arr ) {
        my @block = splice( @arr, 0, $nr );
        print "@block\n";
}