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