for my $k (sort keys %{$geochar}) {
printf "\tkey <%s> {[%s]};\n", $k, join(', ',
map { !$_ ? 'NoSymbol' : sprintf 'U%04X', ord }
map { $info->{key}->{$_} } @{ $geochar->{$k} }
);
}
for my $k (sort keys %{$geochar}) {
printf "\tkey <%s> {[%s]};\n", $k, join(', ',
map { !$_ ? 'NoSymbol' : sprintf 'U%04X', ord }
map { $info->{key}->{$_} } @{ $geochar->{$k} }
);
}