gistfile1.txt

use strict;
use warnings;
use 5.010;
use Encode;
use Devel::Peek;

my $str = decode_utf8 'ほげ';

{
    use utf8;
    my $hash = {hoge => $str};
    Dump $_ for keys %$hash;
}

{
    my $hash = {hoge => $str};
    Dump $_ for keys %$hash;
}