my $counter = 0; foreach (@template) { $counter++ if s/$replacement/${prefix}-${counter}/; print; }