($chr, my $altkey) = split /\n/, $chr;
my $codepoint = ord $chr;
my $ascii = $codepoint <= 127;
my $info = $glyphs->glyph_info($codepoint);
my ($class, $name, $mnem, $html, $string) = @{$info};
($chr, my $altkey) = split /\n/, $chr;
my $codepoint = ord $chr;
my $ascii = $codepoint <= 127;
my $info = $glyphs->glyph_info($codepoint);
my ($class, $name, $mnem, $html, $string) = @{$info};