use strict;
use warnings;

my @array = map { sprintf q{%02d}, $_ } 1 .. 17;
print q{=} x 25, qq{\n};

for ( 1 .. 10 )
{
    print qq{Partition size = $_\n};
    my @newArray = partitionArray( $_, @array );
    printAoA( @newArray );
}

sub partitionArray
{
    my( $ps, @array ) = @_;
    my @newArray =
       map {
               [
                   exists $array[ $ps * $_ + $ps - 1 ]
                   ? @array[ ( $ps * $_ ).. ( $ps * $_ + $ps - 1 ) ]
                   : @array[ ( $ps * $_ ) .. $#array] 
               ]
           }
       0 .. $#array / $ps;
}

sub printAoA
{
    foreach my $raSubArray ( @_ )
    {
        local $" = q{, };
        print qq{[ @$raSubArray ]\n};
    }
    print q{=} x 25, qq{\n};
}