#!/usr/bin/env perl

use strict;
use warnings;

use Unicode::UCD qw(charinfo);
use Data::Dump;

my $k = chr 12794; 

dd {
    ord         =>          ord $k,
    chr         =>              $k,
    charinfo     => charinfo(ord $k),
};