my $num = 1_000_000;