#!/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"
}