perl -e"%h = (1=>2, 2=>4, 5=>6, 7=>8, 9=>10); $,='-'; print %h;"
1-2-7-8-9-10-2-4-5-6

##</code><code>##

perl -e"%h = (1=>2, 1=>4, 1=>6, 1=>8, 1=>10); $,='-'; print %h;"
1-10

##</code><code>##

P:\test>perl -e"$,='-'; print %h = (1,1,1,1,1,1,1,1,1,1);"
1-1-1--1-1-1--1-1

##</code><code>##

perl -e"$s = 'fred'; print $s;"
fred

perl -e"print $s = 'fred';"
fred

perl -e"$,='-'; @a=(1,1,1,1,1,1,1,1,1,1); print @a;"
1-1-1-1-1-1-1-1-1-1

perl -e"$,='-'; print @a=(1,1,1,1,1,1,1,1,1,1);"
1-1-1-1-1-1-1-1-1-1

##</code><code>##

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
        };