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);