Stuff

print KITE "Counter Names\n";
print KITE "=============\n\n";
@counterNames       = sort @counterNames; 
$counterNameslength = (@counterNames); # Find the length of the array
chomp $counterNames;
foreach $i(@counterNames){
         @pk = grep (/$i/, @counterNames);
        $Nume = @pk;
	chomp $Nume;
if ($i =~ /[^[IsXDigit]_-]/) {$badName = "\nBad counter name detected!\n";} else {$badName = "";}
         print KITE "$badName$i$badName\n";
         $index = 0;
    until ($index eq $Nume){
	        shift(@counterNames);
		$index++;
                }
}