Select Code to Download

    use strict;
    use warnings;
...
    my $a;
    %$a=(a=>1,b=>2);
    print Dumper($a);

    $VAR1 = {
              'a' => 1,
              'b' => 2
            };

    $a={a=>1,b=>2};