Select Code to Download

$\ = "\n";
for $n ( 4 .. 6 ){ 
    print for '0' x $n .. '9' x $n;
}

$\ = "\n";
my @digits = 'a' .. 'j';
...
    print @digits[ split '', $_ ] 
        for '0' x $n .. '9' x $n;
}