geedorah:/home/wstest# perl -wE '$foo{a}=1; $foo{b}=2; say join",", $foo{qw#a b#}'
Use of uninitialized value within %foo in join or string at -e line 1.