my @a = '01' .. '30';
print "@$_" for sub{
    my $n=shift; 
    map{ [ splice @_, 0, $n ] } 0 .. @_ / $n 
}->( 5, @a );

01 02 03 04 05
06 07 08 09 10
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25
26 27 28 29 30

print @a;
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30