Help for this page
Select Code to Download
Select
or
download this
perl -le "$,='-'; @a=%h=(a=>1, a=>2); print @a" a-a-a-2