Select Code to Download

...
    push @indexes, sprintf '%03d', first_index { $_ eq $place } @first
+Text;
...

print sprintf "%08d\n", $_
    for @indexes;