# legacystats to calculate how many of each character is in a file
use open IN => ":raw";
open IN,  "<ChuonNathDict_Saw" ;
open OUT, ">ChuonNathDict_Saw.txt" ;

@onebytearray = ();
$#onebytearray = 256;
while (<IN>) {
	while ( /(.)/g ) {
		@onebytearray[ord($1)] = @onebytearray[ord($1)]  + 1;
		
	}
}

for (my $character = 0; $character < 256 ; $character++)  {
	print OUT  " $character ", chr(9), "=   @onebytearray[$character]",  chr(9), chr(9), "<", chr($character),">","\n";
}

close IN;
close OUT;