<?xml version="1.0" encoding="windows-1252"?>
<node id="899129" title="Re: Generating all possible combinations from an AoA" created="2011-04-13 05:06:28" updated="2011-04-13 05:06:28">
<type id="11">
note</type>
<author id="625435">
james2vegas</author>
<data>
<field name="doctext">
Use [mod://File::Glob]'s bsd_glob function, something like:&lt;br&gt;
&lt;br&gt;
&lt;code&gt;
use File::Glob (bsd_glob);
my @array = (
    [ "a", "b", "c", ],
    [ "1", "2", "3", "4", ],
    [ "x", "y", ],
    ); 

my $glob = join( '', map { '{' . join( ',', @$_ ) . '}' } @array );
my @list = bsd_glob($glob);
&lt;/code&gt;&lt;br&gt;&lt;br&gt;
Update: I guess I approached this as a Perl programming problem not as a programming logic problem, oh well.  </field>
<field name="root_node">
899125</field>
<field name="parent_node">
899125</field>
</data>
</node>
