use warnings;
use strict;

my %hash = (CS => 4);
while (<DATA>) {
    chomp;
    $hash{$_}++;
    print "$_$hash{$_}\n";
}

__DATA__
CS
CS

##</code><code>##

CS5
CS6