Select Code to Download

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

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

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

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

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

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