foreach $val (keys %char2entity) {
	print "<br>$val => $char2entity{$val}\n";
}