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

##</code><code>##

1
$VAR1 = {
          '1' => undef
        };
1.1
$VAR1 = {
          '1' => 1
        };
1..1
$VAR1 = {
          '1' => undef
        };
1..1.1
$VAR1 = {
          '1' => 1
        };
1..1..1
$VAR1 = {
          '1' => undef
        };
1.1.1..1.1
$VAR1 = {
          '1' => 1
        };

##</code><code>##

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

##</code><code>##

1.
$VAR1 = {
          '1' => undef
        };
1.1
$VAR1 = {
          '1' => 1
        };
1.
$VAR1 = {
          '1' => undef
        };
1.1
$VAR1 = {
          '1' => 1
        };
1.
$VAR1 = {
          '1' => undef
        };
1.1
$VAR1 = {
          '1' => 1
        }