#!/usr/bin/perl
use v5.10;
use strict;
use warnings;

use Data::Dumper;

my $series = [24, 60, 60]; # h:m:s

my $permut = 1;
$permut *= $_ for (@$series);

my $chunks = 4;
$chunks = $chunks < 1 ? 1 : $chunks;

my $chunk_size = int($permut / $chunks);
my $chunk_start = 0;
my $chunk_end   = $chunk_size;

say join ' ', @$series;
say "Permutations: $permut\tChunk size:\t$chunk_size\tChunks:\t$chunks";

my @chunk_ranges;
while ($chunk_end <= $permut) {
        push @chunk_ranges, [ [$chunk_start, cpns($series, $chunk_start)], [$chunk_end-1, cpns($series, $chunk_end-1)] ];
        
        $chunk_start    +=      $chunk_size;    
        $chunk_end      +=      $chunk_size;
}

#last chunk_end equals amount of permutations-1
$chunk_ranges[-1]->[-1] = [$permut-1, cpns($series, $permut-1)];

print Dumper \@chunk_ranges;

sub cpns  { convert_positional_notation_systems(@_) };
sub convert_positional_notation_systems {
        my $bases       = shift;
        my $quotient    = shift;        
        my $rest;
        my @result;

        for my $base (reverse @$bases) {
                $rest           = $quotient % $base;
                $quotient       = int($quotient / $base);
                push @result, $rest;
                
                last if $quotient == 0;
        }

        @result = reverse @result;
        return join ' ', @result;
}