# usage perl $0 > out.txt
$a = 'blah';
printf "%09s\n", $a++ for 1..1_500_000;