#!/usr/bin/perl

use autodie;
use common::sense;
use Set::CrossProduct;

my $min = 2;
my $max = 3;
my $set = [ qw(A T G C) ];

foreach my $length ( $min .. $max ) {
    say "Getting combinations of length $length";
    
    my $cross = Set::CrossProduct->new(
        [ ( $set ) x $length ]
    );
    while( my $tuple = $cross->get ) {
        say join '', @$tuple;
    }
}