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