P:\test>perl -e"$,='-'; print %h = (1,1,1,1,1,1,1,1,1,1);"
1-1-1--1-1-1--1-1