Select Code to Download

  DB<126> \%count
 => { 3 => 1, 5 => 1, 10 => 3 }
...

  DB<129> \@list
 => [3, 10, 3, 10]

lanx@nc10-ubuntu:~$ perl -MData::Dumper -e ' %h1=(3 => 1, 5 => 1, 10 =
+> 3 ); @l=%h2=reverse %h1; print Dumper \@l,\%h2'
$VAR1 = [
...

This is perl, v5.10.0 built for i486-linux-gnu-thread-multi

lanx@nc10-ubuntu:~$ perl -MData::Dumper -e ' %h1=(3 => 1, 5 => 1, 10 =
+> 3 ); %h4=%h3=%h2=reverse %h1; print Dumper \%h2,\%h3,\%h4'
$VAR1 = {
...
$VAR3 = {
          '3' => '10'
        };