#!/usr/bin/perl

use strict;

open (INFILE, "$ARGV[0]");
my @lines = <INFILE>;
close (INFILE);

my $responses = 0;
foreach (@lines) {

    if ($responses < $ARGV[1]) {
        $responses++
    } else {
        $responses = 1;
    }

    chomp $lines[$_];
    print $lines[$_] . $responses . "\n"
}

##</code><code>##

test
test
test
test
test
test
test
test
test
test
test

##</code><code>##

{C} > test input.txt
test1
test1
test1
test1
test1
test1
test1
test1
test1
test1
test1

{C} > test input.txt 5
test1
test2
test3
test4
test5
test1
test2
test3
test4
test5
test1