open ASCII,'test.txt';

@chars=split //,join('',<ASCII>);

%char_hash=();

foreach $c(@chars)
	{
	$char_hash{$c}++;
	}

foreach $c(keys(%char_hash))
	{
	print "$c occurs $char_hash{$c} times\n";
	}