my $perm = Permutation->new(\@data); my $count = $perm->cardinality; my $batches = 10; my $batch_num = 3; my $start = $count / $batches * $batch_num; $perm->state($start); $perm->run;