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