my $num = join '', map { int rand 10 } (0..(30 + int rand 10) );

##</code><code>##

my $num = join '', map { int rand 10 } (0..39);