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