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