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