CS
CS
##</code><code>##

open(PBXNUM1, ">pbxnum1");
open(MYINPUTFILE, "pbxnum");

my %hash;
	while (<MYINPUTFILE>) {
	chomp;
		
	$hash {$_} ++;
	print PBXNUM1 "$_$hash{$_}\n";
	}
##</code><code>##

CS1
CS2
##</code><code>##

open(PBXNUM1, ">pbxnum1");
open(MYINPUTFILE, "pbxnum");

my $hash = $pbxex;
	while (<MYINPUTFILE>) {
	chomp;
		
	$hash {$_} ++;
	print PBXNUM1 "$_$hash{$_}\n";
	}