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

##</code><code>##

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