$ perl -le 'print join ".", @a = %h = (1,1,1,1);'
1.1.1.1