Select Code to Download

    $ perl -e 'print [qw/1 2/]'
    ARRAY(0x97116c)

    my %foo =
    (
...
            blue => 'moon'
        }
     );

    $ perl -e '$h={a=>2,b=>3,c=>4};print %$h'
    a2b3c4
...
 
    $ perl -e '%h=(a=>2,b=>3,c=>4);@a=%h;print@a'
    a2b3c4

    $ perl -e '@a=(1,2); $foo=\@a; push@a,\@a;print $foo, $/, $a[-1]'
    ARRAY(0x980028)
    ARRAY(0x980028)