Select Code to Download

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

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

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

1.
$VAR1 = {
...
$VAR1 = {
          '1' => 1
        }