$ perl -Mstrict -Mwarnings -E ' my %x; my %y = (a => 1); $x{z} = %y; say $x{z}; ' 1/8