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