print '<td>';
next;
}
+ if (ref $di->{$mnem} ne 'ARRAY') {
+ printf '<td class="X Xr" title="%s">', quote($mnem);
+ next;
+ }
my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
my $glyph = chr $codepoint;
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
+ <td class="X Hangul">korean
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>