$ perl -e '%a=(1=>"a",2=>"b",3=>"c"); print %a,"\n"'