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