my $n=0; printf "%030d\n", $n++ while $n < 1E9;

##</code><code>##

my @indexList = (0..scalar @lines);