Select Code to Download

use strict;
use warnings;
...
          'chr' => "\x{31fa}",
          'ord' => 12794
        };

#!/usr/bin/env perl

...
    charinfo     => charinfo(ord $k),
};

{
  charinfo => {
...
  chr => "\x{31FA}",
  ord => 12794,
}