Very nice ++

I did not know about this glob behavior. I had to change it a little to make it work exaktly like the op wanted though.

my $level = 2;
my $l = 'A';

for (2 .. $level){ $l++; }
my $glob_string = ( '{' . join( ',', 'A'.. $l ) . '}1' ) x $level;
my @indices = glob $glob_string;

print "@indices\n";
[download]