Help for this page
... push @indexes, sprintf '%03d', first_index { $_ eq $place } @first +Text; ...
print sprintf "%08d\n", $_ for @indexes;