#!/usr/env/perl

use strict;
use warnings;

my $q = (shift or 129); 
my @x = ( 'A' x $q, 'B' x $q );

my $glob = '{' . join(',', @x) . '}';

while (my $g = glob($glob)) {
    print "$g\n"; # no output if $q > 129
}

##### returns nothing with 129 ####