{
map { my $hr = $_; map { ( $_, chr($hr->{$_}), $_.';', chr($hr->{$_}) ) } keys %$hr }
{
    amp    => 0x00026,
    apos   => 0x00027,
    ast    => 0x0002A,
    brvbar => 0x000A6,
    bsol   => 0x0005C,
    cent   => 0x000A2,
    colon  => 0x0003A,
    comma  => 0x0002C,
    commat => 0x00040,
    copy   => 0x000A9,
    curren => 0x000A4,
    darr   => 0x02193,
    deg    => 0x000B0,
    divide => 0x000F7,
    dollar => 0x00024,
    equals => 0x0003D,
    excl   => 0x00021,
    frac12 => 0x000BD,
    frac14 => 0x000BC,
    frac18 => 0x0215B,
    frac34 => 0x000BE,
    frac38 => 0x0215C,
    frac58 => 0x0215D,
    frac78 => 0x0215E,
    gt     => 0x0003E,
    half   => 0x000BD,
    horbar => 0x02015,
    hyphen => 0x02010,
    iexcl  => 0x000A1,
    iquest => 0x000BF,
    laquo  => 0x000AB,
    larr   => 0x02190,
    lcub   => 0x0007B,
    ldquo  => 0x0201C,
    lowbar => 0x0005F,
    lpar   => 0x00028,
    lsqb   => 0x0005B,
    lsquo  => 0x02018,
    lt     => 0x0003C,
    micro  => 0x000B5,
    middot => 0x000B7,
    nbsp   => 0x000A0,
    not    => 0x000AC,
    num    => 0x00023,
    ohm    => 0x02126,
    ordf   => 0x000AA,
    ordm   => 0x000BA,
    para   => 0x000B6,
    percnt => 0x00025,
    period => 0x0002E,
    plus   => 0x0002B,
    plusmn => 0x000B1,
    pound  => 0x000A3,
    quest  => 0x0003F,
    quot   => 0x00022,
    raquo  => 0x000BB,
    rarr   => 0x02192,
    rcub   => 0x0007D,
    rdquo  => 0x0201D,
    reg    => 0x000AE,
    rpar   => 0x00029,
    rsqb   => 0x0005D,
    rsquo  => 0x02019,
    sect   => 0x000A7,
    semi   => 0x0003B,
    shy    => 0x000AD,
    sol    => 0x0002F,
    sung   => 0x0266A,
    sup1   => 0x000B9,
    sup2   => 0x000B2,
    sup3   => 0x000B3,
    times  => 0x000D7,
    trade  => 0x02122,
    uarr   => 0x02191,
    verbar => 0x0007C,
    yen    => 0x000A5,
}
}