Help for this page

Select Code to Download

Select or download this

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