$ perl -le 'print for %h = (1,1,1,1);'
1

1
1

##</code><code>##

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

##</code><code>##

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