$ perl -de 1
main::(-e:1):   1
  DB<1> $hash{"foo bar"}=1

  DB<2> print keys %hash
foo bar
  DB<3>