Select Code to Download

use Tie::Hash qw( );
our @ISA = 'Tie::StdHash';
...
my %h;
tie %h, __PACKAGE__;
$h{"\x{05D0}"} = 1;   # Prints 'utf' in 5.8.6