use Algorithm::Loops 'NestedLoops';

my @chars = ( 'a' .. 'z', 1 .. 9 );
my $len   = 3;

NestedLoops( [ (\@chars) x $len ],
    sub {
        my $str = join "", @_;
        ## do something with $str
    } );