my ($s,$x)='';
$s .= ++$x while length($s) < 1_000_000;

##</code><code>##

my $s = [~] 1..185185;

##</code><code>##

my $s = [~] :while({.length<1_000_000}) 1..*;