Determinar los digitos de un número - Perl

Este es el código de un programa que realize para determinar los digitos de un número en Perl en el cual el número se genera desde 100 hasta 100000 de manera aleatoria; Con un poco de astucia, cualquiera lo puede adaptar a otro lenguaje.

print "<h1>Digitos de un número</h1>\n";
srand;
$n = int (rand 99900)+100;
print "<p>El número aleatorio es: $n</p>";
$num = $n;
#lista hash
%digito = (
1 => "primer digito",
2 => "segundo digito",
3 => "tercer digito",
4 => "cuarto digito",
5 => "quinto digito",
6 => "primer digito"
);
$j = 1;
$k = 0;
$salir = 0;
while ($salir == 0){
$res= int ($num / (10**$k));
if ($res <= 0){
$salir = 1;
} else {
$k++;
}
}
for ($i = ($k-1); $i>=0; $i--){
$div = 10**$i;
$dig = int ($n / $div);
if ($dig >= 0 && $dig < 10){
print "<p>$digito{$j++}: $dig</p>";
$n2 = $dig * $div;
$n = $n - $n2;
}
}