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

##</code><code>##

    my %foo =
    (
        name => [ qw/ Ovid is a fool / ],
        date => 
        {
            once => 'in a',
            blue => 'moon'
        }
     );

##</code><code>##

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

    $ perl -e '$h={a=>2,b=>3,c=>4};print @$h'
    Not an ARRAY reference at -e line 1.
 
    $ perl -e '%h=(a=>2,b=>3,c=>4);@a=%h;print@a'
    a2b3c4

##</code><code>##

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