perl -le 'print join ".", %h = (1,2,1,3,1,4)'
1.4.1..1.4

perl -le 'print join ".", %h = (1,2,1,3,1,[])'
1.ARRAY(0x80fa8cc).1.ARRAY(0x80fa8cc).1.ARRAY(0x80fa8cc)