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