CS
MS
CS
AT
AV
MS

##</code><code>##

CS1
MS1
CS2
AT1
AV1
MS2
##</code><code>##

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

	$nt = 0;
	$ms = 0;
	$ap = 0;
	$cs = 0;
	$em = 0;
	$at = 0;
	$av = 0;
	$to = 0;
	
	while (<MYINPUTFILE>) {
		my($line) = $_;
		chomp($line);
		
		$nt++;
		$ms++;
		$ap++;
		$cs++;
		$em++;
		$at++;
		$av++;
		$to++;
		
	@mypbx = ('NT', 'MS', 'AP', 'CS', 'EM', 'AT', 'AV', 'TO');
	foreach $mypbx (@mypbx) {
		print PBXNUM1 "$line$mypbx\n";
		}
	}