for ($counter=0; $counter<$total; $counter++) {
    foreach (@template) {
        my $line = $_;
        $line =~ s/$replacement/${prefix}-${counter}/;
        print $line;
    }
}