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

##</code><code>##

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