How about this...

#!/usr/bin/perl

use strict;

my $max = 3;
my $counter = 1;

while (<DATA>) {
    chomp;
    print "${_}$counter\n";
    $counter == $max ? $counter = 1 : $counter++;
}
__DATA__
test
test
test
test
test
test
[download]