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