- or download this
DB<1> @subkeys = qw( foo bar baz )
DB<2> $hash{ @subkeys } = 5
DB<3> x \%hash
0 HASH(0x846a000)
3 => 5
- or download this
$hash{ 'foo', 'bar', 'baz' } = 1;
- or download this
DB<1> $s = qw( eenie meenie minie moe )
DB<2> p $s
...
DB<4> x \%hash
0 HASH(0x846a000)
"eenie\c\meenie\c\minie\c\moe" => 1234