my $number = sprintf "932%08d\n", rand(100_000_000);