DB<1> @subkeys = qw( foo bar baz )
  DB<2> $hash{ @subkeys } = 5
  DB<3> x \%hash
0  HASH(0x846a000)
   3 => 5

##</code><code>##

$hash{ 'foo', 'bar', 'baz' } = 1;

##</code><code>##

  DB<1> $s = qw( eenie meenie minie moe )
  DB<2> p $s
moe
  DB<3> $hash{ qw( eenie meenie minie moe ) } = 1234
  DB<4> x \%hash                                    
0  HASH(0x846a000)
   "eenie\c\meenie\c\minie\c\moe" => 1234