Select Code to Download

use strict;
use warnings;
...
  }
  return @ret;
}

my $glob_string = ( '{' . join( ',', 'A'..'D' ) . '}1' ) x $level;

my @indices;
while ( < $glob_string > ) { push @indices, $_ }