DB<27> sub LIST { foo => { x => 42 } }

  DB<28> $bar ='x'

  DB<29> my $hsh = \ my %hsh; %hsh = LIST; \\

  cont:  say $hsh{foo}{$bar}
42