foreach $char (sort keys %{$reverse_chardb{$opt_rev_map}}){
if($reverse_chardb{$opt_rev_map}->{$char}){
print $char,"\t",$reverse_chardb{$opt_rev_map}->{$char},"\n";
foreach $char (sort keys %{$reverse_chardb{$opt_rev_map}}){
if($reverse_chardb{$opt_rev_map}->{$char}){
print $char,"\t",$reverse_chardb{$opt_rev_map}->{$char},"\n";