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