Перебор вариантов

permutation.pl

#!/usr/bin/env perl

my @A = (
    [ 1, 2 ],
    [ 3, 4, 5 ],
    [ 6, 7, 8 ],
    [ 9, ],
    [ 0, 1, 2, 3 ],
    [ 4, 5 ],
);

# Выводим @A
print join $/, map { join "-", @$_ } @A;
print $/, $/;

# Перебор всех вариантов @A
my @res;        # Двуменный массив с результатом
my $len = 1;    # Кол-во вариантов перебора двумерного @A или длинна массива @res
my $i = 0;      # Индекс @A или ширина @res
my $offset = 1; # Сдвиг

for (map { $len *= scalar @$_; scalar @$_ } @A) {
    my $n = $_; # Размер sub-массива @A
    for (0..$len-1) {
        $res[$_][$i] = $A[$i][(int($_/$offset) % ($offset*$n) % $n)];
    }
    $offset *= $_;
    $i++;
}

# Выводим результат
$i = 0;
print join $/, map { $i++ ."\t". join "-", @$_ } @res;
print $/;