А в чем собственно проблема?
Цифра
int(rand(10000000))
Буква
@a = ('a'..'Z');
$a[rand scalar @a]

А дальше делай функцию под себя