perl -MData::Dumper -le"$,='-'; print %h = (1,1,1,1,1,1,1,1,1,1); print Dumper \%h;"
1-1-1--1-1-1--1-1
$VAR1 = {
          '1' => 1
        };