Select Code to Download

my $charset = '{'
            . join(',', '0'..'9',
...
                        'a'..'z')
            . '}';
my @charlist = glob( $charset x 3 );

while my $list ( glob( $charset x 3 ) )
{
    do_something_with($list);
}