geedorah:/home/wstest# perl -E '$foo{a}=1; $foo{b}=2; say join",", @foo{qw#a b#}'
1,2