#!perl -w
@numerals_hex=qw/5341 4E00 4E8C 4E09 56DB 4E94 516D 4E03 516B 4E5D/;
for(@numerals_hex){
    print "<td>&#",&dec($_),";</td>";
}
print "\n";
sub dec {
    unpack "n",(pack "H*",$_[0]);
}