perl -le "$,='-'; @a=%h=(a=>1, a=>2); print @a"
a-a-a-2