perl -MData::Dumper -e "for (1 .. 6){%h=(1) x $_;print join('.',%h ) . \"\n\";print Dumper(\%h)}"